(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[    141923,       3048]
NotebookOptionsPosition[    141327,       3027]
NotebookOutlinePosition[    141884,       3047]
CellTagsIndexPosition[    141841,       3044]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"makePlotLegend", "[", 
     RowBox[{
     "names_", ",", "markers_", ",", "origin_", ",", "markerSize_", ",", 
      "fontSize_", ",", "font_"}], "]"}], ":=", 
    RowBox[{"Join", "@@", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Text", "[", 
          RowBox[{
           RowBox[{"Style", "[", 
            RowBox[{
             RowBox[{"names", "[", 
              RowBox[{"[", "i", "]"}], "]"}], ",", 
             RowBox[{"FontSize", "\[Rule]", "fontSize"}], ",", "font"}], 
            "]"}], ",", 
           RowBox[{"Offset", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"1.5", "*", "markerSize"}], ",", 
               RowBox[{
                RowBox[{"-", 
                 RowBox[{"(", 
                  RowBox[{"i", "-", "0.5"}], ")"}]}], "*", 
                RowBox[{"Max", "[", 
                 RowBox[{"markerSize", ",", "fontSize"}], "]"}], "*", 
                "1.25"}]}], "}"}], ",", 
             RowBox[{"Scaled", "[", "origin", "]"}]}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "1"}], ",", "0"}], "}"}]}], "]"}], ",", 
         RowBox[{"Inset", "[", 
          RowBox[{
           RowBox[{"Show", "[", 
            RowBox[{
             RowBox[{"markers", "[", 
              RowBox[{"[", "i", "]"}], "]"}], ",", 
             RowBox[{"ImageSize", "\[Rule]", "markerSize"}]}], "]"}], ",", 
           RowBox[{"Offset", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"0.5", "*", "markerSize"}], ",", 
               RowBox[{
                RowBox[{"-", 
                 RowBox[{"(", 
                  RowBox[{"i", "-", "0.5"}], ")"}]}], "*", 
                RowBox[{"Max", "[", 
                 RowBox[{"markerSize", ",", "fontSize"}], "]"}], "*", 
                "1.25"}]}], "}"}], ",", 
             RowBox[{"Scaled", "[", "origin", "]"}]}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0"}], "}"}], ",", 
           RowBox[{"Background", "\[Rule]", 
            RowBox[{"Directive", "[", 
             RowBox[{
              RowBox[{"Opacity", "[", "0", "]"}], ",", "White"}], "]"}]}]}], 
          "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", 
         RowBox[{"Length", "[", "names", "]"}]}], "}"}]}], "]"}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Countries", "=", 
    RowBox[{"{", 
     RowBox[{
     "Argentina", ",", "Australia", ",", "Austria", ",", "Belgium", ",", 
      "Brazil", ",", "Canada", ",", "Chile", ",", "China", ",", 
      "CzechRepublic", ",", "Denmark", ",", "Egypt", ",", "Finland", ",", 
      "France", ",", "Germany", ",", "Greece", ",", "HongKong", ",", "India", 
      ",", "Indonesia", ",", "Ireland", ",", "Israel", ",", "Italy", ",", 
      "Japan", ",", "Malaysia", ",", "Mexico", ",", "Netherlands", ",", 
      "NewZealand", ",", "Norway", ",", "Pakistan", ",", "Poland", ",", 
      "Portugal", ",", "Russia", ",", "Singapore", ",", "SouthAfrica", ",", 
      "SouthKorea", ",", "Spain", ",", "Sweden", ",", "Switzerland", ",", 
      "Taiwan", ",", "Thailand", ",", "Turkey", ",", "UnitedKingdom", ",", 
      "UnitedStates", ",", "Venezuela"}], "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Lengthofdata", "=", 
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{
      "\"\<Country\>\"", ",", "\"\<No. of firms\>\"", ",", 
       "\"\<No. of long-lived firms\>\"", ",", "\"\<Exit ratio\>\""}], "}"}], 
     "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MediansOfPR", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MediansOfGrMV", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MediansOfVolOfPR", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MediansOfVolOfGrMV", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"acfPR", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"acfMV", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"acfPRAll", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"acfMVAll", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.561377048571643*^9, 3.561377062277245*^9}, {
   3.5617280109561653`*^9, 3.5617280634893627`*^9}, 3.561728216299437*^9, {
   3.56181628717187*^9, 3.561816287379874*^9}, {3.561883629109312*^9, 
   3.5618836294044027`*^9}, {3.561886862824716*^9, 3.561886863169696*^9}, {
   3.561887180842103*^9, 3.561887185945929*^9}, {3.561887803848543*^9, 
   3.5618878283559227`*^9}, {3.561888585359067*^9, 3.5618885857983503`*^9}, {
   3.561888980324779*^9, 3.5618889805851917`*^9}, {3.561890691550247*^9, 
   3.561890696318315*^9}, {3.561891790916143*^9, 3.561891824999099*^9}, {
   3.561891921544716*^9, 3.561891939398118*^9}, {3.561892069070339*^9, 
   3.561892076787552*^9}, {3.561892280253723*^9, 3.561892294751844*^9}, {
   3.5618927184334183`*^9, 3.561892736574443*^9}, {3.561974411240567*^9, 
   3.561974598631627*^9}, 3.561975379411931*^9, {3.56198290186691*^9, 
   3.561982915466909*^9}, {3.562065361374485*^9, 3.562065389775586*^9}, {
   3.562065447683145*^9, 3.562065460189242*^9}, {3.562068633122816*^9, 
   3.5620686356494617`*^9}, {3.5620688758918943`*^9, 3.562068882607476*^9}, {
   3.562073622120468*^9, 3.562073656763538*^9}, {3.562312161781163*^9, 
   3.562312173442342*^9}, 3.562312726483659*^9, {3.562312797934464*^9, 
   3.5623128329943027`*^9}, {3.562316056995144*^9, 3.562316164407612*^9}, {
   3.5623190002182493`*^9, 3.562319009856866*^9}, {3.562319845224635*^9, 
   3.562319850487422*^9}, {3.562320029903054*^9, 3.5623200302287283`*^9}, {
   3.562329001243722*^9, 3.562329026224811*^9}, {3.562329184147716*^9, 
   3.562329259278208*^9}, {3.562488336865952*^9, 3.562488403030218*^9}, {
   3.5624933123713083`*^9, 3.5624933130023737`*^9}, 3.562496779759674*^9, {
   3.562587938673809*^9, 3.562587941813319*^9}, {3.5625886368625803`*^9, 
   3.562588638063672*^9}, {3.562674442059164*^9, 3.562674585188836*^9}, {
   3.562674615208261*^9, 3.56267468946045*^9}, {3.562674895078067*^9, 
   3.5626748969557753`*^9}, {3.5626750134430733`*^9, 3.562675022704177*^9}, 
   3.562675189396324*^9, 3.562675757720017*^9, {3.562763710879135*^9, 
   3.562763712814191*^9}, {3.562772774367317*^9, 3.5627727867473288`*^9}, {
   3.5627729772992277`*^9, 3.562772997459712*^9}, {3.562774398913128*^9, 
   3.562774402398118*^9}, {3.562776988145389*^9, 3.562777001495015*^9}, {
   3.562777037861823*^9, 3.562777056990053*^9}, {3.562785946678482*^9, 
   3.562785949827351*^9}, {3.5628306218236027`*^9, 3.5628306221548767`*^9}, {
   3.562842513722863*^9, 3.562842522319666*^9}, {3.5628426280808783`*^9, 
   3.5628426294074183`*^9}, {3.562848247881186*^9, 3.562848327969495*^9}, 
   3.5628484328966713`*^9, 3.562849335266365*^9, {3.5629287250147247`*^9, 
   3.562928788572152*^9}, {3.5629330697961397`*^9, 3.562933125159749*^9}, {
   3.563182021497855*^9, 3.563182027030384*^9}, {3.563187303356929*^9, 
   3.563187330682425*^9}, {3.563188943409885*^9, 3.563188961934759*^9}, 
   3.563189738246138*^9, {3.563276265057108*^9, 3.5632762659911613`*^9}, {
   3.5634479221059113`*^9, 3.563447966494349*^9}, {3.563449421780978*^9, 
   3.563449427337265*^9}, {3.563449720284638*^9, 3.563449721059413*^9}, {
   3.563470722591868*^9, 3.5634707260350037`*^9}, {3.5637903030584383`*^9, 
   3.563790363017543*^9}, {3.563791173686941*^9, 3.563791200314403*^9}, {
   3.563791264148602*^9, 3.563791267173793*^9}, {3.563791303309532*^9, 
   3.563791386014132*^9}, {3.563792073678748*^9, 3.5637921120653067`*^9}, {
   3.564060669508428*^9, 3.5640606742537746`*^9}, {3.564744837798252*^9, 
   3.564744882240003*^9}, {3.564744989371359*^9, 3.564745188204455*^9}, {
   3.564747619503151*^9, 3.564747635273429*^9}, {3.5647477234392433`*^9, 
   3.564747727455168*^9}, {3.564747840651725*^9, 3.564747841751667*^9}, {
   3.564748908425077*^9, 3.564748909167078*^9}, {3.564748946104863*^9, 
   3.564748948256989*^9}, {3.5647503782000523`*^9, 3.5647504889758177`*^9}, {
   3.564750544596588*^9, 3.5647505466392508`*^9}, {3.564759000166305*^9, 
   3.564759002302898*^9}, {3.564760042395657*^9, 3.564760044622098*^9}, {
   3.5649111557107973`*^9, 3.564911160784567*^9}, {3.564911538738574*^9, 
   3.5649115641107483`*^9}, {3.564911598260009*^9, 3.564911599226161*^9}, {
   3.564911655814639*^9, 3.5649116569729223`*^9}, {3.564911740531331*^9, 
   3.564911781182439*^9}, {3.564912726563602*^9, 3.564912731791484*^9}, {
   3.5649144231598*^9, 3.564914501585637*^9}, {3.564915090732383*^9, 
   3.564915108606608*^9}, {3.5649172182804127`*^9, 3.564917235330124*^9}, {
   3.564917265772231*^9, 3.564917347562234*^9}, {3.5649179188274193`*^9, 
   3.5649179205365343`*^9}, {3.564990698123967*^9, 3.564990710013461*^9}, {
   3.564995506152358*^9, 3.564995521098919*^9}, {3.564997532527595*^9, 
   3.564997570220536*^9}, {3.5650073393346577`*^9, 3.565007348264874*^9}, {
   3.565007379654892*^9, 3.5650073949667673`*^9}, {3.5650075108774*^9, 
   3.56500753041888*^9}, {3.5650077608726177`*^9, 3.565007764798575*^9}, {
   3.565007861077342*^9, 3.5650078631846027`*^9}, {3.565007972410655*^9, 
   3.565007979319063*^9}, {3.5650806586814747`*^9, 3.5650806611246033`*^9}, {
   3.565258013680773*^9, 3.56525802411195*^9}, 3.5652581060851307`*^9, {
   3.5652592798813877`*^9, 3.565259283567772*^9}, {3.565267195015471*^9, 
   3.565267210684037*^9}, {3.5652672616844683`*^9, 3.565267262076098*^9}, {
   3.565274487006528*^9, 3.565274490328886*^9}, {3.565274534769351*^9, 
   3.565274542268177*^9}, {3.565274617915008*^9, 3.565274646713262*^9}, {
   3.5652832328465652`*^9, 3.565283234477187*^9}, {3.565283292842651*^9, 
   3.565283298622093*^9}, {3.5652833850979233`*^9, 3.565283386158917*^9}, {
   3.565283437311778*^9, 3.5652834384460993`*^9}, {3.5652849739480743`*^9, 
   3.5652849751320343`*^9}, {3.56528576043857*^9, 3.565285762763227*^9}, {
   3.5652857948356733`*^9, 3.565285812607954*^9}, 3.565285981992724*^9, {
   3.5654533690438547`*^9, 3.565453374093508*^9}, {3.565453479539659*^9, 
   3.565453504927471*^9}, {3.565453612803268*^9, 3.565453616321509*^9}, {
   3.565453727321731*^9, 3.565453755488018*^9}, {3.565453801094287*^9, 
   3.565453804750711*^9}, {3.56545420429559*^9, 3.565454249168161*^9}, {
   3.565458655702615*^9, 3.565458661505763*^9}, {3.565462171612776*^9, 
   3.565462183478896*^9}, {3.566290247430163*^9, 3.566290256911853*^9}, {
   3.5663080574894114`*^9, 3.566308065020381*^9}, {3.566308379723732*^9, 
   3.5663083877466393`*^9}, {3.5664741512338676`*^9, 3.566474185296781*^9}, {
   3.566474260805583*^9, 3.566474330573154*^9}, {3.5664750188420153`*^9, 
   3.5664750531155663`*^9}, {3.566487386870791*^9, 3.566487397131508*^9}, {
   3.566490228345872*^9, 3.566490229025069*^9}, {3.5665508510877237`*^9, 
   3.566550851658647*^9}, {3.567760862556831*^9, 3.5677608765342712`*^9}, {
   3.567929336045981*^9, 3.567929351769548*^9}, {3.567929387403775*^9, 
   3.5679293895758047`*^9}}],

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{"(*", 
   RowBox[{"___", "___", "_BEGIN", " ", "OF", " ", "LOOP___", "___", "_"}], 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Do", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"sampleAll", "=."}], ";", 
       RowBox[{"sampleselection", "=."}], ";", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
        "___", "___", "___", "___", "___", "___", "___", "___", "___", "_"}], 
        "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"Country", "=", 
        RowBox[{"SymbolName", "[", 
         RowBox[{"Countries", "[", 
          RowBox[{"[", "j", "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"data", "=", 
        RowBox[{"Import", "[", 
         RowBox[{"StringReplace", "[", 
          RowBox[{"\"\<Data/in local curr/xxx/xxx.csv\>\"", ",", 
           RowBox[{"\"\<xxx\>\"", "\[Rule]", "Country"}]}], "]"}], "]"}]}], 
       ";", "\[IndentingNewLine]", 
       RowBox[{"SIC", "=", 
        RowBox[{"Import", "[", 
         RowBox[{"StringReplace", "[", 
          RowBox[{"\"\<Data/in local curr/xxx/xxxSIC.csv\>\"", ",", 
           RowBox[{"\"\<xxx\>\"", "\[Rule]", "Country"}]}], "]"}], "]"}]}], 
       ";", "\[IndentingNewLine]", 
       RowBox[{"SIC", "=", 
        RowBox[{"Delete", "[", 
         RowBox[{"SIC", ",", 
          RowBox[{"Position", "[", 
           RowBox[{
            RowBox[{"SIC", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", "\"\<NA\>\""}], 
           "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"data", "=", 
        RowBox[{"Delete", "[", 
         RowBox[{"data", ",", 
          RowBox[{"Position", "[", 
           RowBox[{
            RowBox[{"data", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
            "\"\<#ERROR\>\""}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"NonDomestic", "=", 
        RowBox[{
         RowBox[{"Import", "[", 
          RowBox[{"StringReplace", "[", 
           RowBox[{"\"\<Data/in local curr/xxx/xxxNonDomestic.csv\>\"", ",", 
            RowBox[{"\"\<xxx\>\"", "\[Rule]", "Country"}]}], "]"}], "]"}], 
         "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", 
           RowBox[{"1", ";;", "2"}]}], "]"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"NonDomestic", "=", 
        RowBox[{"Delete", "[", 
         RowBox[{"NonDomestic", ",", 
          RowBox[{"Position", "[", 
           RowBox[{
            RowBox[{"NonDomestic", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
            "\"\<#ERROR\>\""}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"NonDomestic", "=", 
        RowBox[{
         RowBox[{"Delete", "[", 
          RowBox[{"NonDomestic", ",", 
           RowBox[{"Position", "[", 
            RowBox[{
             RowBox[{"NonDomestic", "[", 
              RowBox[{"[", 
               RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", "\"\<\>\""}], 
            "]"}]}], "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"NonDomestic", "=", 
        RowBox[{"Quiet", "[", 
         RowBox[{"Rest", "@", "NonDomestic"}], "]"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"NonDomestic1", "=", 
        RowBox[{"Extract", "[", 
         RowBox[{"NonDomestic", ",", 
          RowBox[{"Position", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"StringMatchQ", "[", 
               RowBox[{"#", ",", "\"\<*(MV)\>\""}], "]"}], "&"}], "/@", 
             "NonDomestic"}], ",", "True"}], "]"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"NonDomestic1", "=", 
        RowBox[{"StringDrop", "[", 
         RowBox[{"NonDomestic1", ",", 
          RowBox[{"-", "4"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"NonDomestic2", "=", 
        RowBox[{"Extract", "[", 
         RowBox[{"NonDomestic", ",", 
          RowBox[{"Position", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"StringMatchQ", "[", 
               RowBox[{"#", ",", "\"\<*(MV)\>\""}], "]"}], "&"}], "/@", 
             "NonDomestic"}], ",", "False"}], "]"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"NonDomestic", "=", 
        RowBox[{"Join", "[", 
         RowBox[{"NonDomestic1", ",", "NonDomestic2"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"Clear", "[", 
        RowBox[{"NonDomestic1", ",", "NonDomestic2"}], "]"}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"minobs", "=", "15"}], ";", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{
        "Extract", " ", "operating", " ", "income", " ", "from", " ", 
         "data"}], "*)"}], "\[IndentingNewLine]", 
       RowBox[{"OI", "=", 
        RowBox[{"Extract", "[", 
         RowBox[{"data", ",", 
          RowBox[{"Position", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"StringMatchQ", "[", 
               RowBox[{"#", ",", "\"\<*OPERATING INCOME*\>\""}], "]"}], "&"}],
              "/@", 
             RowBox[{"data", "[", 
              RowBox[{"[", 
               RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ",", "True"}], 
           "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{
        "Delete", " ", "everything", " ", "but", " ", "the", " ", "company", 
         " ", "code", " ", "in", " ", "the", " ", "second", " ", "column"}], 
        " ", "*)"}], "\[IndentingNewLine]", 
       RowBox[{"OI", "=", 
        RowBox[{"Delete", "[", 
         RowBox[{"OI", ",", 
          RowBox[{"Position", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"StringQ", "[", "#", "]"}], "&"}], "/@", 
             RowBox[{"OI", "[", 
              RowBox[{"[", 
               RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ",", "False"}], 
           "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"OI", "=", 
        RowBox[{"Delete", "[", 
         RowBox[{"OI", ",", 
          RowBox[{"Position", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Length", "@", 
               RowBox[{"Characters", "[", "#", "]"}]}], "&"}], "/@", 
             RowBox[{"OI", "[", 
              RowBox[{"[", 
               RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ",", 
            RowBox[{"_", "?", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"#", "<", "10"}], "&"}], ")"}]}]}], "]"}]}], "]"}]}], 
       ";", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"OI", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "2"}], "]"}], "]"}], "=", 
        RowBox[{"StringDrop", "[", 
         RowBox[{
          RowBox[{"OI", "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"-", "9"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{
         RowBox[{
         "Delete", " ", "companies", " ", "whose", " ", "company", " ", 
          "code", " ", "appears", " ", "more", " ", "than", " ", "once", " ", 
          "in", " ", "OI", " ", "and", " ", "which", " ", "are", " ", "not", 
          " ", "long"}], "-", "lived"}], "*)"}], "\[IndentingNewLine]", 
       RowBox[{"probs", "=", 
        RowBox[{"Position", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Tally", "[", 
            RowBox[{"OI", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"_", "?", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"#", ">", "1"}], "&"}], ")"}]}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"probnames", "=", 
        RowBox[{"Extract", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Tally", "[", 
            RowBox[{"OI", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", "probs"}], "]"}]}], 
       ";", "\[IndentingNewLine]", 
       RowBox[{"probpos", "=", 
        RowBox[{"Flatten", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Position", "[", 
             RowBox[{
              RowBox[{"OI", "[", 
               RowBox[{"[", 
                RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", "#"}], "]"}], 
            "&"}], "/@", "probnames"}], ",", "1"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"longlived", "=", 
        RowBox[{"Position", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Length", "@", 
             RowBox[{"Cases", "[", 
              RowBox[{"#", ",", 
               RowBox[{"_", "?", "NumericQ"}]}], "]"}]}], "&"}], "/@", 
           RowBox[{"Part", "[", 
            RowBox[{"OI", ",", "All", ",", 
             RowBox[{"3", ";;"}]}], "]"}]}], ",", 
          RowBox[{"_", "?", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"#", "\[GreaterEqual]", "minobs"}], "&"}], ")"}]}]}], 
         "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"OI", "=", 
        RowBox[{"Delete", "[", 
         RowBox[{"OI", ",", 
          RowBox[{"Complement", "[", 
           RowBox[{"probpos", ",", "longlived"}], "]"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"Clear", "[", 
        RowBox[{"probs", ",", "probnames", ",", "probpos", ",", "longlived"}],
         "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{
        "Extract", " ", "total", " ", "assets", " ", "from", " ", "data"}], 
        " ", "*)"}], "\[IndentingNewLine]", 
       RowBox[{"TA", "=", 
        RowBox[{"Extract", "[", 
         RowBox[{"data", ",", 
          RowBox[{"Position", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"StringMatchQ", "[", 
               RowBox[{"#", ",", "\"\<*TOTAL ASSETS*\>\""}], "]"}], "&"}], "/@", 
             RowBox[{"data", "[", 
              RowBox[{"[", 
               RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ",", "True"}], 
           "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
        "Delete", " ", "everything", " ", "but", " ", "the", " ", "company", 
         " ", "code", " ", "in", " ", "the", " ", "second", " ", "column"}], 
        "*)"}], "\[IndentingNewLine]", 
       RowBox[{"TA", "=", 
        RowBox[{"Delete", "[", 
         RowBox[{"TA", ",", 
          RowBox[{"Position", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"StringQ", "[", "#", "]"}], "&"}], "/@", 
             RowBox[{"TA", "[", 
              RowBox[{"[", 
               RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ",", "False"}], 
           "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"TA", "=", 
        RowBox[{"Delete", "[", 
         RowBox[{"TA", ",", 
          RowBox[{"Position", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Length", "@", 
               RowBox[{"Characters", "[", "#", "]"}]}], "&"}], "/@", 
             RowBox[{"TA", "[", 
              RowBox[{"[", 
               RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ",", 
            RowBox[{"_", "?", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"#", "<", "10"}], "&"}], ")"}]}]}], "]"}]}], "]"}]}], 
       ";", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"TA", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "2"}], "]"}], "]"}], "=", 
        RowBox[{"StringDrop", "[", 
         RowBox[{
          RowBox[{"TA", "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"-", "9"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{
         RowBox[{
         "Delete", " ", "companies", " ", "which", " ", "appear", " ", "more",
           " ", "than", " ", "once", " ", "in", " ", "TA", " ", "and", " ", 
          "which", " ", "are", " ", "not", " ", "long"}], "-", "lived"}], " ",
         "*)"}], "\[IndentingNewLine]", 
       RowBox[{"probs", "=", 
        RowBox[{"Position", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Tally", "[", 
            RowBox[{"TA", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"_", "?", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"#", ">", "1"}], "&"}], ")"}]}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"probnames", "=", 
        RowBox[{"Extract", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Tally", "[", 
            RowBox[{"TA", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", "probs"}], "]"}]}], 
       ";", "\[IndentingNewLine]", 
       RowBox[{"probpos", "=", 
        RowBox[{"Flatten", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Position", "[", 
             RowBox[{
              RowBox[{"TA", "[", 
               RowBox[{"[", 
                RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", "#"}], "]"}], 
            "&"}], "/@", "probnames"}], ",", "1"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"longlived", "=", 
        RowBox[{"Position", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Length", "@", 
             RowBox[{"Cases", "[", 
              RowBox[{"#", ",", 
               RowBox[{"_", "?", "NumericQ"}]}], "]"}]}], "&"}], "/@", 
           RowBox[{"Part", "[", 
            RowBox[{"TA", ",", "All", ",", 
             RowBox[{"3", ";;"}]}], "]"}]}], ",", 
          RowBox[{"_", "?", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"#", "\[GreaterEqual]", "minobs"}], "&"}], ")"}]}]}], 
         "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"TA", "=", 
        RowBox[{"Delete", "[", 
         RowBox[{"TA", ",", 
          RowBox[{"Complement", "[", 
           RowBox[{"probpos", ",", "longlived"}], "]"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"Clear", "[", 
        RowBox[{"probs", ",", "probnames", ",", "probpos", ",", "longlived"}],
         "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{
        "Extract", " ", "market", " ", "value", " ", "from", " ", "data"}], 
        " ", "*)"}], "\[IndentingNewLine]", 
       RowBox[{"MV", "=", 
        RowBox[{"Extract", "[", 
         RowBox[{"data", ",", 
          RowBox[{"Position", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"StringMatchQ", "[", 
               RowBox[{"#", ",", "\"\<*MARKET VALUE*\>\""}], "]"}], "&"}], "/@", 
             RowBox[{"data", "[", 
              RowBox[{"[", 
               RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ",", "True"}], 
           "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{
        "Delete", " ", "everything", " ", "but", " ", "the", " ", "company", 
         " ", "code", " ", "in", " ", "the", " ", "second", " ", "column"}], 
        " ", "*)"}], "\[IndentingNewLine]", 
       RowBox[{"MV", "=", 
        RowBox[{"Delete", "[", 
         RowBox[{"MV", ",", 
          RowBox[{"Position", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"StringQ", "[", "#", "]"}], "&"}], "/@", 
             RowBox[{"MV", "[", 
              RowBox[{"[", 
               RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ",", "False"}], 
           "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"MV", "=", 
        RowBox[{"Delete", "[", 
         RowBox[{"MV", ",", 
          RowBox[{"Position", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Length", "@", 
               RowBox[{"Characters", "[", "#", "]"}]}], "&"}], "/@", 
             RowBox[{"MV", "[", 
              RowBox[{"[", 
               RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ",", 
            RowBox[{"_", "?", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"#", "<", "5"}], "&"}], ")"}]}]}], "]"}]}], "]"}]}], 
       ";", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"MV", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "2"}], "]"}], "]"}], "=", 
        RowBox[{"StringDrop", "[", 
         RowBox[{
          RowBox[{"MV", "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"-", "4"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{
         RowBox[{
         "Delete", " ", "companies", " ", "which", " ", "appear", " ", "more",
           " ", "than", " ", "once", " ", "in", " ", "MV", " ", "and", " ", 
          "which", " ", "are", " ", "not", " ", "long"}], "-", "lived"}], " ",
         "*)"}], "\[IndentingNewLine]", 
       RowBox[{"probs", "=", 
        RowBox[{"Position", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Tally", "[", 
            RowBox[{"MV", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"_", "?", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"#", ">", "1"}], "&"}], ")"}]}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"probnames", "=", 
        RowBox[{"Extract", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Tally", "[", 
            RowBox[{"MV", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", "probs"}], "]"}]}], 
       ";", "\[IndentingNewLine]", 
       RowBox[{"probpos", "=", 
        RowBox[{"Flatten", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Position", "[", 
             RowBox[{
              RowBox[{"MV", "[", 
               RowBox[{"[", 
                RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", "#"}], "]"}], 
            "&"}], "/@", "probnames"}], ",", "1"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"longlived", "=", 
        RowBox[{"Position", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Length", "@", 
             RowBox[{"Cases", "[", 
              RowBox[{"#", ",", 
               RowBox[{"_", "?", "NumericQ"}]}], "]"}]}], "&"}], "/@", 
           RowBox[{"Part", "[", 
            RowBox[{"MV", ",", "All", ",", 
             RowBox[{"3", ";;"}]}], "]"}]}], ",", 
          RowBox[{"_", "?", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"#", "\[GreaterEqual]", "minobs"}], "&"}], ")"}]}]}], 
         "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"MV", "=", 
        RowBox[{"Delete", "[", 
         RowBox[{"MV", ",", 
          RowBox[{"Complement", "[", 
           RowBox[{"probpos", ",", "longlived"}], "]"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"Clear", "[", 
        RowBox[{"probs", ",", "probnames", ",", "probpos", ",", "longlived"}],
         "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{"Delete", " ", "Duplicates"}], " ", "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{"OI", "=", 
        RowBox[{
         RowBox[{"Tally", "[", "OI", "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"TA", "=", 
        RowBox[{
         RowBox[{"Tally", "[", "TA", "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"MV", "=", 
        RowBox[{
         RowBox[{"Tally", "[", "MV", "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{"Delete", " ", "NonDomestic", " ", "firms"}], " ", "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{"NonDomesticPos", "=", 
        RowBox[{"DeleteCases", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Flatten", "@", 
             RowBox[{"Position", "[", 
              RowBox[{
               RowBox[{"OI", "[", 
                RowBox[{"[", 
                 RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", "#"}], "]"}]}],
             "&"}], "/@", "NonDomestic"}], ",", 
          RowBox[{"{", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"OI", "=", 
        RowBox[{"Delete", "[", 
         RowBox[{"OI", ",", "NonDomesticPos"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"NonDomesticPos", "=", 
        RowBox[{"DeleteCases", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Flatten", "@", 
             RowBox[{"Position", "[", 
              RowBox[{
               RowBox[{"TA", "[", 
                RowBox[{"[", 
                 RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", "#"}], "]"}]}],
             "&"}], "/@", "NonDomestic"}], ",", 
          RowBox[{"{", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"TA", "=", 
        RowBox[{"Delete", "[", 
         RowBox[{"TA", ",", "NonDomesticPos"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"NonDomesticPos", "=", 
        RowBox[{"DeleteCases", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Flatten", "@", 
             RowBox[{"Position", "[", 
              RowBox[{
               RowBox[{"MV", "[", 
                RowBox[{"[", 
                 RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", "#"}], "]"}]}],
             "&"}], "/@", "NonDomestic"}], ",", 
          RowBox[{"{", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"MV", "=", 
        RowBox[{"Delete", "[", 
         RowBox[{"MV", ",", "NonDomesticPos"}], "]"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{
        "Select", " ", "those", " ", "companies", " ", "which", " ", "are", 
         " ", "present", " ", "in", " ", "all", " ", "lists", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"total", " ", "assets"}], ",", " ", 
           RowBox[{"operating", " ", "income"}], ",", " ", 
           RowBox[{"market", " ", "value"}]}], ")"}], " ", "and", " ", "for", 
         " ", "which", " ", "SIC", " ", "codes", " ", "are", " ", 
         "available"}], " ", "*)"}], "\[IndentingNewLine]", 
       RowBox[{"commonnames", "=", 
        RowBox[{"Intersection", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Tally", "[", 
            RowBox[{"OI", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"Tally", "[", 
            RowBox[{"TA", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"Tally", "[", 
            RowBox[{"MV", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"Tally", "[", 
            RowBox[{"SIC", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "1"}], "]"}], "]"}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"OI", "=", 
        RowBox[{"OI", "[", 
         RowBox[{"[", 
          RowBox[{"Flatten", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"Position", "[", 
              RowBox[{
               RowBox[{"OI", "[", 
                RowBox[{"[", 
                 RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", "#"}], "]"}], 
             "&"}], "/@", "commonnames"}], "]"}], "]"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"TA", "=", 
        RowBox[{"TA", "[", 
         RowBox[{"[", 
          RowBox[{"Flatten", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"Position", "[", 
              RowBox[{
               RowBox[{"TA", "[", 
                RowBox[{"[", 
                 RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", "#"}], "]"}], 
             "&"}], "/@", "commonnames"}], "]"}], "]"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"MV", "=", 
        RowBox[{"MV", "[", 
         RowBox[{"[", 
          RowBox[{"Flatten", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"Position", "[", 
              RowBox[{
               RowBox[{"MV", "[", 
                RowBox[{"[", 
                 RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", "#"}], "]"}], 
             "&"}], "/@", "commonnames"}], "]"}], "]"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"SIC", "=", 
        RowBox[{"SIC", "[", 
         RowBox[{"[", 
          RowBox[{"Flatten", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"Position", "[", 
              RowBox[{
               RowBox[{"SIC", "[", 
                RowBox[{"[", 
                 RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", "#"}], "]"}], 
             "&"}], "/@", "commonnames"}], "]"}], "]"}], "]"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{
         RowBox[{"Create", " ", "2"}], "-", 
         RowBox[{"digit", " ", "SIC", " ", "codes"}]}], " ", "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{"SIC", "=", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"Switch", "[", 
           RowBox[{
            RowBox[{"IntegerLength", "[", 
             RowBox[{"SIC", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], ",", "4", ",", 
            RowBox[{"FromDigits", "[", 
             RowBox[{
              RowBox[{"IntegerDigits", "[", 
               RowBox[{"SIC", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{";;", "2"}], "]"}], "]"}], "]"}], ",", "3", ",", 
            "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"IntegerDigits", "[", 
              RowBox[{"SIC", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", 
            RowBox[{"Length", "@", "SIC"}]}], "}"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{
        "Delete", " ", "companies", " ", "which", " ", "have", " ", "SIC", 
         " ", "code", " ", "60", " ", "or", " ", "61", " ", 
         RowBox[{"(", "\"\<banks\>\"", ")"}]}], " ", "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{"bankspos", "=", 
        RowBox[{"Position", "[", 
         RowBox[{"SIC", ",", "60"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"OI", "=", 
        RowBox[{"Delete", "[", 
         RowBox[{"OI", ",", "bankspos"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"TA", "=", 
        RowBox[{"Delete", "[", 
         RowBox[{"TA", ",", "bankspos"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"MV", "=", 
        RowBox[{"Delete", "[", 
         RowBox[{"MV", ",", "bankspos"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"SIC", "=", 
        RowBox[{"Delete", "[", 
         RowBox[{"SIC", ",", "bankspos"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"Clear", "[", "bankspos", "]"}], ";", "\[IndentingNewLine]", 
       RowBox[{"bankspos", "=", 
        RowBox[{"Position", "[", 
         RowBox[{"SIC", ",", "61"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"OI", "=", 
        RowBox[{"Delete", "[", 
         RowBox[{"OI", ",", "bankspos"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"TA", "=", 
        RowBox[{"Delete", "[", 
         RowBox[{"TA", ",", "bankspos"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"MV", "=", 
        RowBox[{"Delete", "[", 
         RowBox[{"MV", ",", "bankspos"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"SIC", "=", 
        RowBox[{"Delete", "[", 
         RowBox[{"SIC", ",", "bankspos"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"Clear", "[", "bankspos", "]"}], ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{
        "Compute", " ", "growth", " ", "rates", " ", "of", " ", "market", " ",
          "value"}], " ", "*)"}], "\[IndentingNewLine]", 
       RowBox[{"GrowthMV", "=", 
        RowBox[{"Quiet", "[", 
         RowBox[{"N", "[", 
          RowBox[{"ParallelTable", "[", 
           RowBox[{
            RowBox[{"Log", "@", 
             RowBox[{"Ratios", "[", 
              RowBox[{"MV", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", 
                 RowBox[{"19", ";;"}]}], "]"}], "]"}], "]"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "1", ",", 
              RowBox[{"Length", "@", "MV"}]}], "}"}]}], "]"}], "]"}], "]"}]}],
        ";", "\[IndentingNewLine]", 
       RowBox[{"GrowthMV", "=", 
        RowBox[{"ReplaceAll", "[", 
         RowBox[{"GrowthMV", ",", 
          RowBox[{"0.", "\[Rule]", " ", "\"\<NA\>\""}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{"Compute", " ", "profit", " ", "rates"}], " ", "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{"TA", "=", 
        RowBox[{"TA", "/.", 
         RowBox[{"\"\<NA\>\"", "\[Rule]", "\"\<NaN\>\""}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"profitrates", "=", 
        RowBox[{"Quiet", "[", 
         RowBox[{"N", "[", 
          RowBox[{
           RowBox[{"OI", "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", 
              RowBox[{"20", ";;"}]}], "]"}], "]"}], "/", 
           RowBox[{"TA", "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", 
              RowBox[{"20", ";;"}]}], "]"}], "]"}]}], "]"}], "]"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{"SampleAll", ":", " ", 
         RowBox[{
         "contains", " ", "only", " ", "those", " ", "firms", " ", "for", " ",
           "which", " ", "at", " ", "least", " ", "in", " ", "one", " ", 
          "period", " ", "all", " ", "3", " ", "variables", " ", "are", " ", 
          "available"}]}], " ", "*)"}], "\[IndentingNewLine]", 
       RowBox[{"sampleAll", "=", 
        RowBox[{"Position", "[", 
         RowBox[{
          RowBox[{"ParallelTable", "[", 
           RowBox[{
            RowBox[{"Length", "[", 
             RowBox[{"Intersection", "[", 
              RowBox[{
               RowBox[{"Position", "[", 
                RowBox[{
                 RowBox[{"GrowthMV", "[", 
                  RowBox[{"[", "i", "]"}], "]"}], ",", 
                 RowBox[{"_", "?", "NumericQ"}]}], "]"}], ",", 
               RowBox[{"Position", "[", 
                RowBox[{
                 RowBox[{"profitrates", "[", 
                  RowBox[{"[", "i", "]"}], "]"}], ",", 
                 RowBox[{"_", "?", "NumericQ"}]}], "]"}]}], "]"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "1", ",", 
              RowBox[{"Length", "@", "GrowthMV"}]}], "}"}]}], "]"}], ",", 
          RowBox[{"_", "?", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"#", "\[GreaterEqual]", "1"}], "&"}], ")"}]}]}], "]"}]}],
        ";", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{"SampleSelection", ":", " ", 
         RowBox[{
          RowBox[{"contains", " ", "only", " ", "long"}], "-", 
          RowBox[{
          "lived", " ", "firms", " ", "for", " ", "which", " ", "data", " ", 
           "for", " ", "the", " ", "first", " ", "and", " ", "the", " ", "15",
            "th", " ", "period", " ", "in", " ", "all", " ", "3", " ", 
           "variables", " ", "is", " ", "availabe"}]}]}], " ", "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{"sampleselection", "=", 
        RowBox[{"Position", "[", 
         RowBox[{
          RowBox[{"ParallelTable", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"NumericQ", "[", 
               RowBox[{"GrowthMV", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], ",", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{
                  RowBox[{"GrowthMV", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
                  RowBox[{"_", "?", "NumericQ"}]}], "]"}], "==", 
                RowBox[{"Position", "[", 
                 RowBox[{
                  RowBox[{"profitrates", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
                  RowBox[{"_", "?", "NumericQ"}]}], "]"}]}], ")"}], ",", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{
                  RowBox[{"GrowthMV", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", 
                    RowBox[{"-", "1"}]}], "]"}], "]"}], ",", 
                  RowBox[{"_", "?", "NumericQ"}]}], "]"}], "==", 
                RowBox[{"Position", "[", 
                 RowBox[{
                  RowBox[{"profitrates", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", 
                    RowBox[{"-", "1"}]}], "]"}], "]"}], ",", 
                  RowBox[{"_", "?", "NumericQ"}]}], "]"}]}], ")"}]}], "}"}], 
            ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "1", ",", 
              RowBox[{"Length", "@", "GrowthMV"}]}], "}"}]}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"True", ",", "True", ",", "True"}], "}"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{
        StyleBox["GrowthMVAll", "Input"], "=", 
        RowBox[{"Extract", "[", 
         RowBox[{"GrowthMV", ",", "sampleAll"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"profitratesAll", "=", 
        RowBox[{"Extract", "[", 
         RowBox[{"profitrates", ",", "sampleAll"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"GrowthMVSelect", "=", 
        RowBox[{"Extract", "[", 
         RowBox[{"GrowthMV", ",", "sampleselection"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"profitratesSelect", "=", 
        RowBox[{"Extract", "[", 
         RowBox[{"profitrates", ",", "sampleselection"}], "]"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"Clear", "[", 
        RowBox[{"GrowthMV", ",", "profitrates"}], "]"}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{
        "Compute", " ", "the", " ", "median", " ", "of", " ", "profit", " ", 
         "rates", " ", "and", " ", "growth", " ", "rates", " ", "of", " ", 
         "market", " ", "value"}], " ", "*)"}], "\[IndentingNewLine]", 
       RowBox[{"MedianGrowth", "=", 
        RowBox[{
         RowBox[{
          RowBox[{"Median", "[", "#", "]"}], "&"}], "/@", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"Cases", "[", 
             RowBox[{"#", ",", 
              RowBox[{"_", "?", "NumericQ"}]}], "]"}], "&"}], "/@", 
           RowBox[{"(", 
            RowBox[{"Transpose", "[", "GrowthMVSelect", "]"}], ")"}]}], 
          ")"}]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"MedianGrowthAll", "=", 
        RowBox[{
         RowBox[{
          RowBox[{"Median", "[", "#", "]"}], "&"}], "/@", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"Cases", "[", 
             RowBox[{"#", ",", 
              RowBox[{"_", "?", "NumericQ"}]}], "]"}], "&"}], "/@", 
           RowBox[{"(", 
            RowBox[{"Transpose", "[", "GrowthMVAll", "]"}], ")"}]}], 
          ")"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"MedianProfitrates", "=", 
        RowBox[{
         RowBox[{
          RowBox[{"Median", "[", "#", "]"}], "&"}], "/@", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"Cases", "[", 
             RowBox[{"#", ",", 
              RowBox[{"_", "?", "NumericQ"}]}], "]"}], "&"}], "/@", 
           RowBox[{"(", 
            RowBox[{"Transpose", "[", "profitratesSelect", "]"}], ")"}]}], 
          ")"}]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"MedianProfitratesAll", "=", 
        RowBox[{
         RowBox[{
          RowBox[{"Median", "[", "#", "]"}], "&"}], "/@", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"Cases", "[", 
             RowBox[{"#", ",", 
              RowBox[{"_", "?", "NumericQ"}]}], "]"}], "&"}], "/@", 
           RowBox[{"(", 
            RowBox[{"Transpose", "[", "profitratesAll", "]"}], ")"}]}], 
          ")"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{"Plot", " ", "median", " ", "time", " ", "series"}], " ", 
        "*)"}], "\[IndentingNewLine]", 
       RowBox[{"years", "=", 
        RowBox[{"Range", "[", 
         RowBox[{"1997", ",", "2011"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"Plot1", "=", 
        RowBox[{"ListPlot", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Transpose", "[", 
             RowBox[{"{", 
              RowBox[{"years", ",", "MedianGrowthAll"}], "}"}], "]"}], ",", 
            RowBox[{"Transpose", "[", 
             RowBox[{"{", 
              RowBox[{"years", ",", "MedianGrowth"}], "}"}], "]"}], ",", 
            RowBox[{"Transpose", "[", 
             RowBox[{"{", 
              RowBox[{"years", ",", "MedianProfitratesAll"}], "}"}], "]"}], 
            ",", 
            RowBox[{"Transpose", "[", 
             RowBox[{"{", 
              RowBox[{"years", ",", "MedianProfitrates"}], "}"}], "]"}]}], 
           "}"}], ",", 
          RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
          RowBox[{"Axes", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"True", ",", "False"}], "}"}]}], ",", 
          RowBox[{"AxesStyle", "\[Rule]", " ", "Thick"}], ",", 
          RowBox[{"Frame", "\[Rule]", " ", "True"}], ",", 
          RowBox[{"FrameStyle", "\[Rule]", "Thick"}], ",", 
          RowBox[{"FrameLabel", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Style", "[", 
              RowBox[{"\"\<Year\>\"", ",", "14"}], "]"}], ",", 
             RowBox[{"Style", "[", 
              RowBox[{"\"\<Median\>\"", ",", "14"}], "]"}]}], "}"}]}], ",", 
          RowBox[{"FrameTicksStyle", "\[Rule]", 
           RowBox[{"FontSize", "\[Rule]", "14"}]}], ",", 
          RowBox[{"ImageSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"400", ",", "300"}], "}"}]}], ",", 
          RowBox[{"PlotMarkers", "\[Rule]", " ", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"\[FilledUpTriangle]", ",", "10"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"\[FilledCircle]", ",", "10"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"\[FilledDiamond]", ",", "10"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"\[FilledSquare]", ",", "10"}], "}"}]}], "}"}]}], ",", 
          RowBox[{"PlotStyle", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"Darker", "@", "Blue"}], ",", 
               RowBox[{"Thickness", "[", "0.001", "]"}], ",", "Thick"}], 
              "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"Darker", "@", "Blue"}], ",", "DotDashed", ",", 
               "Thick"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"Red", ",", "Dotted", ",", "Thick"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"Red", ",", 
               RowBox[{"AbsoluteDashing", "[", "6", "]"}], ",", "Thick"}], 
              "}"}]}], "}"}]}], ",", 
          RowBox[{"Joined", "\[Rule]", " ", "True"}], ",", 
          RowBox[{"Epilog", "\[Rule]", 
           RowBox[{"makePlotLegend", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
              "\"\<Growth rate of entire sample\>\"", ",", 
               "\"\<Growth rate of long-lived firms\>\"", ",", 
               "\"\<Profit rate of entire sample\>\"", ",", 
               "\"\<Profit rate of long-lived firms\>\""}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"Graphics", "[", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"Darker", "@", "Blue"}], ",", 
                  RowBox[{"Inset", "[", "\[FilledUpTriangle]", "]"}]}], "}"}],
                 "]"}], ",", 
               RowBox[{"Graphics", "[", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"Darker", "@", "Blue"}], ",", 
                  RowBox[{"Inset", "[", "\[FilledCircle]", "]"}]}], "}"}], 
                "]"}], ",", 
               RowBox[{"Graphics", "[", 
                RowBox[{"{", 
                 RowBox[{"Red", ",", 
                  RowBox[{"Inset", "[", "\[FilledDiamond]", "]"}]}], "}"}], 
                "]"}], ",", 
               RowBox[{"Graphics", "[", 
                RowBox[{"{", 
                 RowBox[{"Red", ",", 
                  RowBox[{"Inset", "[", "\[FilledSquare]", "]"}]}], "}"}], 
                "]"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"0.02", ",", "0.3"}], "}"}], ",", "12", ",", "12", ",", 
             "\"\<Arial\>\""}], "]"}]}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{
        "Compute", " ", "acf", " ", "of", " ", "median", " ", "profit", " ", 
         "rates", " ", "and", " ", "growth", " ", "in", " ", "market", " ", 
         "value", " ", "time", " ", "series", " ", 
         RowBox[{"(", 
          RowBox[{"long", "-", "lived"}], ")"}]}], " ", "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{"pr", "=", 
        RowBox[{"Cases", "[", 
         RowBox[{"MedianProfitrates", ",", 
          RowBox[{"_", "?", "NumericQ"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"acfProfitRate", "=", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"1", "/", 
            RowBox[{"Length", "[", "pr", "]"}]}], "*", 
           RowBox[{"ListCorrelate", "[", 
            RowBox[{
             RowBox[{"pr", "-", 
              RowBox[{"Mean", "[", "pr", "]"}]}], ",", 
             RowBox[{"pr", "-", 
              RowBox[{"Mean", "[", "pr", "]"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"1", ",", "1"}], "}"}], ",", "0"}], "]"}]}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"ConstantArray", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"1", "/", 
               RowBox[{"Length", "[", "pr", "]"}]}], "*", 
              RowBox[{"ListCorrelate", "[", 
               RowBox[{
                RowBox[{"pr", "-", 
                 RowBox[{"Mean", "[", "pr", "]"}]}], ",", 
                RowBox[{"pr", "-", 
                 RowBox[{"Mean", "[", "pr", "]"}]}]}], "]"}]}], ",", 
             RowBox[{"Length", "[", "pr", "]"}]}], "]"}], "//", "Flatten"}], 
          ")"}]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"AppendTo", "[", 
        RowBox[{"acfPR", ",", 
         RowBox[{"acfProfitRate", "[", 
          RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
       RowBox[{"Clear", "[", 
        RowBox[{"pr", ",", "acfProfitRate"}], "]"}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"gr", "=", 
        RowBox[{"Cases", "[", 
         RowBox[{"MedianGrowth", ",", 
          RowBox[{"_", "?", "NumericQ"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"acfGrowthRate", "=", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"1", "/", 
            RowBox[{"Length", "[", "gr", "]"}]}], "*", 
           RowBox[{"ListCorrelate", "[", 
            RowBox[{
             RowBox[{"gr", "-", 
              RowBox[{"Mean", "[", "gr", "]"}]}], ",", 
             RowBox[{"gr", "-", 
              RowBox[{"Mean", "[", "gr", "]"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"1", ",", "1"}], "}"}], ",", "0"}], "]"}]}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"ConstantArray", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"1", "/", 
               RowBox[{"Length", "[", "gr", "]"}]}], "*", 
              RowBox[{"ListCorrelate", "[", 
               RowBox[{
                RowBox[{"gr", "-", 
                 RowBox[{"Mean", "[", "gr", "]"}]}], ",", 
                RowBox[{"gr", "-", 
                 RowBox[{"Mean", "[", "gr", "]"}]}]}], "]"}]}], ",", 
             RowBox[{"Length", "[", "gr", "]"}]}], "]"}], "//", "Flatten"}], 
          ")"}]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"AppendTo", "[", 
        RowBox[{"acfMV", ",", 
         RowBox[{"acfGrowthRate", "[", 
          RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
       RowBox[{"Clear", "[", 
        RowBox[{"gr", ",", "acfGrowthRate"}], "]"}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{
        "Compute", " ", "acf", " ", "of", " ", "median", " ", "profit", " ", 
         "rates", " ", "and", " ", "growth", " ", "in", " ", "market", " ", 
         "value", " ", "time", " ", "series", " ", 
         RowBox[{"(", 
          RowBox[{"entire", " ", "sample"}], ")"}]}], " ", "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{"pr", "=", 
        RowBox[{"Cases", "[", 
         RowBox[{"MedianProfitratesAll", ",", 
          RowBox[{"_", "?", "NumericQ"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"acfProfitRateAll", "=", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"1", "/", 
            RowBox[{"Length", "[", "pr", "]"}]}], "*", 
           RowBox[{"ListCorrelate", "[", 
            RowBox[{
             RowBox[{"pr", "-", 
              RowBox[{"Mean", "[", "pr", "]"}]}], ",", 
             RowBox[{"pr", "-", 
              RowBox[{"Mean", "[", "pr", "]"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"1", ",", "1"}], "}"}], ",", "0"}], "]"}]}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"ConstantArray", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"1", "/", 
               RowBox[{"Length", "[", "pr", "]"}]}], "*", 
              RowBox[{"ListCorrelate", "[", 
               RowBox[{
                RowBox[{"pr", "-", 
                 RowBox[{"Mean", "[", "pr", "]"}]}], ",", 
                RowBox[{"pr", "-", 
                 RowBox[{"Mean", "[", "pr", "]"}]}]}], "]"}]}], ",", 
             RowBox[{"Length", "[", "pr", "]"}]}], "]"}], "//", "Flatten"}], 
          ")"}]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"AppendTo", "[", 
        RowBox[{"acfPRAll", ",", 
         RowBox[{"acfProfitRateAll", "[", 
          RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
       RowBox[{"Clear", "[", 
        RowBox[{"pr", ",", "acfProfitRateAll"}], "]"}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"gr", "=", 
        RowBox[{"Cases", "[", 
         RowBox[{"MedianGrowthAll", ",", 
          RowBox[{"_", "?", "NumericQ"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"acfGrowthRateAll", "=", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"1", "/", 
            RowBox[{"Length", "[", "gr", "]"}]}], "*", 
           RowBox[{"ListCorrelate", "[", 
            RowBox[{
             RowBox[{"gr", "-", 
              RowBox[{"Mean", "[", "gr", "]"}]}], ",", 
             RowBox[{"gr", "-", 
              RowBox[{"Mean", "[", "gr", "]"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"1", ",", "1"}], "}"}], ",", "0"}], "]"}]}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"ConstantArray", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"1", "/", 
               RowBox[{"Length", "[", "gr", "]"}]}], "*", 
              RowBox[{"ListCorrelate", "[", 
               RowBox[{
                RowBox[{"gr", "-", 
                 RowBox[{"Mean", "[", "gr", "]"}]}], ",", 
                RowBox[{"gr", "-", 
                 RowBox[{"Mean", "[", "gr", "]"}]}]}], "]"}]}], ",", 
             RowBox[{"Length", "[", "gr", "]"}]}], "]"}], "//", "Flatten"}], 
          ")"}]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"AppendTo", "[", 
        RowBox[{"acfMVAll", ",", 
         RowBox[{"acfGrowthRateAll", "[", 
          RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
       RowBox[{"Clear", "[", 
        RowBox[{"gr", ",", "acfGrowthRateAll"}], "]"}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{" ", 
         RowBox[{
         "Determine", " ", "the", " ", "number", " ", "of", " ", "firms", " ",
           "in", " ", "the", " ", "two", " ", "samples"}], ")"}], " ", "*)"}],
        "\[IndentingNewLine]", 
       RowBox[{"AppendTo", "[", 
        RowBox[{"Lengthofdata", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"StringReplace", "[", 
            RowBox[{"\"\<xxx\>\"", ",", 
             RowBox[{"\"\<xxx\>\"", "\[Rule]", "Country"}]}], "]"}], ",", 
           RowBox[{"Length", "@", "sampleAll"}], ",", 
           RowBox[{"Length", "@", "sampleselection"}], ",", 
           RowBox[{"Round", "[", 
            RowBox[{
             RowBox[{"N", "[", 
              RowBox[{
               RowBox[{"Length", "[", "sampleselection", "]"}], "/", 
               RowBox[{"Length", "[", "sampleAll", "]"}]}], "]"}], ",", 
             "0.001"}], "]"}]}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{
        "Compute", " ", "median", " ", "and", " ", "median", " ", "absolute", 
         " ", "deviations", " ", "of", " ", "the", " ", "median", " ", "time",
          " ", "series"}], " ", "*)"}], "\[IndentingNewLine]", 
       RowBox[{"AppendTo", "[", 
        RowBox[{"MediansOfPR", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Median", "[", 
            RowBox[{"Cases", "[", 
             RowBox[{"MedianProfitratesAll", ",", 
              RowBox[{"_", "?", "NumericQ"}]}], "]"}], "]"}], ",", 
           RowBox[{"Median", "[", 
            RowBox[{"Cases", "[", 
             RowBox[{"MedianProfitrates", ",", 
              RowBox[{"_", "?", "NumericQ"}]}], "]"}], "]"}]}], "}"}]}], 
        "]"}], ";", "\[IndentingNewLine]", 
       RowBox[{"AppendTo", "[", 
        RowBox[{"MediansOfGrMV", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Median", "[", 
            RowBox[{"Cases", "[", 
             RowBox[{"MedianGrowthAll", ",", 
              RowBox[{"_", "?", "NumericQ"}]}], "]"}], "]"}], ",", 
           RowBox[{"Median", "[", 
            RowBox[{"Cases", "[", 
             RowBox[{"MedianGrowth", ",", 
              RowBox[{"_", "?", "NumericQ"}]}], "]"}], "]"}]}], "}"}]}], 
        "]"}], ";", "\[IndentingNewLine]", 
       RowBox[{"AppendTo", "[", 
        RowBox[{"MediansOfVolOfPR", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"MedianDeviation", "[", 
            RowBox[{"Cases", "[", 
             RowBox[{"MedianProfitratesAll", ",", 
              RowBox[{"_", "?", "NumericQ"}]}], "]"}], "]"}], ",", 
           RowBox[{"MedianDeviation", "[", 
            RowBox[{"Cases", "[", 
             RowBox[{"MedianProfitrates", ",", 
              RowBox[{"_", "?", "NumericQ"}]}], "]"}], "]"}]}], "}"}]}], 
        "]"}], ";", "\[IndentingNewLine]", 
       RowBox[{"AppendTo", "[", 
        RowBox[{"MediansOfVolOfGrMV", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"MedianDeviation", "[", 
            RowBox[{"Cases", "[", 
             RowBox[{"MedianGrowthAll", ",", 
              RowBox[{"_", "?", "NumericQ"}]}], "]"}], "]"}], ",", 
           RowBox[{"MedianDeviation", "[", 
            RowBox[{"Cases", "[", 
             RowBox[{"MedianGrowth", ",", 
              RowBox[{"_", "?", "NumericQ"}]}], "]"}], "]"}]}], "}"}]}], 
        "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{"___", "___", "_END", " ", "OF", " ", "LOOP___", "___", "_"}], 
       "*)"}], "\[IndentingNewLine]", ",", 
      RowBox[{"{", 
       RowBox[{"j", ",", "1", ",", 
        RowBox[{"Length", "@", "Countries"}]}], "}"}]}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "___", "___", "___", "___", "___", "___", "___", "___", "___", "_"}], 
    "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"Elimate", " ", "the", " ", "results", " ", "for", " ", "long"}],
      "-", 
     RowBox[{"lived", " ", "firms", " ", "in", " ", "Russia"}]}], " ", "*)"}],
    "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"MediansOfPR", "[", 
      RowBox[{"[", 
       RowBox[{"31", ",", "2"}], "]"}], "]"}], "=", 
     RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"MediansOfGrMV", "[", 
      RowBox[{"[", 
       RowBox[{"31", ",", "2"}], "]"}], "]"}], "=", 
     RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"MediansOfVolOfPR", "[", 
      RowBox[{"[", 
       RowBox[{"31", ",", "2"}], "]"}], "]"}], "=", 
     RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"MediansOfVolOfGrMV", "[", 
      RowBox[{"[", 
       RowBox[{"31", ",", "2"}], "]"}], "]"}], "=", 
     RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"acfMV", "[", 
      RowBox[{"[", "31", "]"}], "]"}], "=", "\"\<NA\>\""}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"acfPR", "[", 
      RowBox[{"[", "31", "]"}], "]"}], "=", "\"\<NA\>\""}], 
    ";"}]}]}]], "Input",
 CellChangeTimes->{{3.5436564758846807`*^9, 3.543656541965702*^9}, {
   3.543656674037756*^9, 3.543656677560174*^9}, {3.5436577778578787`*^9, 
   3.5436577787307253`*^9}, {3.543657870794775*^9, 3.5436578755785627`*^9}, {
   3.543658132486335*^9, 3.543658133659164*^9}, 3.5436588189050093`*^9, {
   3.54391640204489*^9, 3.5439164103529*^9}, {3.5439173066843157`*^9, 
   3.543917314404437*^9}, {3.544354242451415*^9, 3.544354265062648*^9}, {
   3.544432504917377*^9, 3.544432585942206*^9}, {3.544432990649768*^9, 
   3.544432995218392*^9}, {3.544433149043723*^9, 3.5444331571254997`*^9}, 
   3.55530408585148*^9, {3.555321530225707*^9, 3.555321531192313*^9}, {
   3.555321562652645*^9, 3.5553215655601273`*^9}, {3.555323649589652*^9, 
   3.5553236579864597`*^9}, {3.555394154909359*^9, 3.555394166020905*^9}, {
   3.5611843137772493`*^9, 3.561184327057447*^9}, {3.561280003406673*^9, 
   3.561280025512105*^9}, {3.56128111374251*^9, 3.561281122998931*^9}, {
   3.561281310456374*^9, 3.56128131967276*^9}, {3.5612879142661057`*^9, 
   3.5612879306817493`*^9}, {3.561295978023346*^9, 3.5612960101106358`*^9}, {
   3.561296073910995*^9, 3.561296091677293*^9}, {3.561296831625733*^9, 
   3.561296844909013*^9}, {3.5612982501931963`*^9, 3.561298276423142*^9}, {
   3.561360233028099*^9, 3.56136027916741*^9}, {3.5613603198514442`*^9, 
   3.561360361131565*^9}, {3.561362751743269*^9, 3.561362753562662*^9}, 
   3.561371213485376*^9, {3.561371670651601*^9, 3.561371691262485*^9}, {
   3.561371986189085*^9, 3.561371996663204*^9}, {3.561372264546295*^9, 
   3.56137231207603*^9}, {3.561372372601399*^9, 3.5613723847012568`*^9}, {
   3.5613728442134323`*^9, 3.561372865720647*^9}, {3.561372937755295*^9, 
   3.561372983951784*^9}, {3.5613730542667007`*^9, 3.5613730556520042`*^9}, {
   3.561374722287383*^9, 3.561374723399851*^9}, {3.561374859212072*^9, 
   3.561374904046694*^9}, 3.56137496271209*^9, {3.561375014573423*^9, 
   3.561375014871891*^9}, {3.561375077002535*^9, 3.561375078407607*^9}, {
   3.5613751205111647`*^9, 3.561375122108639*^9}, {3.561375190098444*^9, 
   3.561375191765419*^9}, {3.561375230590865*^9, 3.561375338385195*^9}, 
   3.561375458522993*^9, {3.561375587626419*^9, 3.561375591066794*^9}, {
   3.561375630259829*^9, 3.561375632211091*^9}, 3.561375741709045*^9, {
   3.561375789276919*^9, 3.561375796501069*^9}, {3.561375828964435*^9, 
   3.5613758550153723`*^9}, {3.5613760619754953`*^9, 3.56137611336132*^9}, {
   3.561376156750602*^9, 3.56137618904062*^9}, {3.561376251061563*^9, 
   3.561376311647705*^9}, {3.561376432255588*^9, 3.561376473867528*^9}, {
   3.561376645643332*^9, 3.561376683126295*^9}, {3.561377045043144*^9, 
   3.561377056680171*^9}, {3.561377125863546*^9, 3.561377131131027*^9}, {
   3.561377193236718*^9, 3.56137724790906*^9}, {3.561377320405094*^9, 
   3.561377320753704*^9}, {3.561377368529562*^9, 3.561377438996318*^9}, {
   3.561377479631982*^9, 3.561377568592844*^9}, {3.56137771550414*^9, 
   3.5613777428500834`*^9}, {3.561378065426366*^9, 3.56137806555133*^9}, 
   3.561460321684753*^9, {3.561460353950677*^9, 3.5614603567758837`*^9}, 
   3.561460399193883*^9, {3.561460440498336*^9, 3.561460466761973*^9}, {
   3.561460506325777*^9, 3.561460559631153*^9}, {3.561460615763782*^9, 
   3.561460684622375*^9}, 3.5614612259877977`*^9, {3.561461361859906*^9, 
   3.561461381978057*^9}, {3.561461423120512*^9, 3.56146142321476*^9}, {
   3.5614614846601562`*^9, 3.561461539089033*^9}, {3.561461569274146*^9, 
   3.5614616108511868`*^9}, 3.561716243660694*^9, {3.5617165628764143`*^9, 
   3.561716570915605*^9}, {3.561716601906899*^9, 3.561716606967091*^9}, {
   3.561727023893654*^9, 3.561727049455018*^9}, {3.561727321631051*^9, 
   3.561727327881014*^9}, {3.56172737384448*^9, 3.561727376117621*^9}, 
   3.561727407062886*^9, {3.5617274865396223`*^9, 3.561727505892441*^9}, {
   3.561727920266472*^9, 3.561728005389348*^9}, {3.561728155370803*^9, 
   3.561728198972081*^9}, {3.561728237170051*^9, 3.561728247286434*^9}, {
   3.561728412601523*^9, 3.56172841673833*^9}, {3.561728477072434*^9, 
   3.561728477943014*^9}, {3.56172878830849*^9, 3.561728792343484*^9}, {
   3.5618081415644836`*^9, 3.561808212603404*^9}, {3.561808290999961*^9, 
   3.561808309613509*^9}, 3.561808347875704*^9, {3.561808403749119*^9, 
   3.56180842373993*^9}, {3.5618084547066507`*^9, 3.561808492120085*^9}, {
   3.5618085924661493`*^9, 3.561808633061211*^9}, {3.561808828985217*^9, 
   3.561808845962356*^9}, {3.561808928974751*^9, 3.561808949077436*^9}, {
   3.561810252301749*^9, 3.561810256757269*^9}, {3.561810336595027*^9, 
   3.561810356292544*^9}, {3.561810497023673*^9, 3.561810523916355*^9}, {
   3.5618105632710342`*^9, 3.561810563629161*^9}, {3.561810604265033*^9, 
   3.561810645371327*^9}, {3.5618107863968563`*^9, 3.561810803964692*^9}, {
   3.561810994840454*^9, 3.561811002729381*^9}, {3.561812314278844*^9, 
   3.561812369855283*^9}, {3.561812401376513*^9, 3.561812401635347*^9}, {
   3.561812476694489*^9, 3.561812520470693*^9}, {3.561812553968149*^9, 
   3.5618126144322147`*^9}, {3.561812967670559*^9, 3.561813035935595*^9}, {
   3.5618130874653254`*^9, 3.561813087884729*^9}, {3.561813210361614*^9, 
   3.561813225738061*^9}, {3.561813261292143*^9, 3.5618132833299837`*^9}, {
   3.561813347585862*^9, 3.5618133478303213`*^9}, {3.56181351264927*^9, 
   3.561813558264571*^9}, {3.56181420297226*^9, 3.5618142127264767`*^9}, {
   3.5618142441095552`*^9, 3.561814347592606*^9}, {3.561814392535379*^9, 
   3.561814467113531*^9}, {3.561814505608603*^9, 3.5618146484218187`*^9}, {
   3.56181471185399*^9, 3.561814712023069*^9}, {3.561814750897929*^9, 
   3.5618147638609657`*^9}, {3.561814863508778*^9, 3.561814894329092*^9}, {
   3.561814992601351*^9, 3.5618149932494383`*^9}, {3.561815112570014*^9, 
   3.5618151135255203`*^9}, {3.561815326291319*^9, 3.5618153729939957`*^9}, {
   3.5618154052597847`*^9, 3.561815415599538*^9}, {3.561815497299295*^9, 
   3.5618156122791367`*^9}, {3.561815668725338*^9, 3.561815673603436*^9}, {
   3.561815708286419*^9, 3.5618157096523027`*^9}, {3.561815767622261*^9, 
   3.561815767929146*^9}, {3.561815980193852*^9, 3.561815983915753*^9}, {
   3.561816037674861*^9, 3.561816181627527*^9}, {3.561816266755365*^9, 
   3.561816271529417*^9}, {3.561816308141179*^9, 3.561816318917067*^9}, {
   3.56181637923245*^9, 3.561816381936607*^9}, {3.561816426303194*^9, 
   3.561816460717413*^9}, 3.561816951451522*^9, {3.5618169867289343`*^9, 
   3.5618169980629377`*^9}, {3.561817102393067*^9, 3.561817121220704*^9}, {
   3.561817221785994*^9, 3.5618172993723507`*^9}, 3.561817513073255*^9, {
   3.561818949632073*^9, 3.561818951695899*^9}, {3.5618822792844267`*^9, 
   3.561882432789857*^9}, {3.5618826430778103`*^9, 3.5618826794941463`*^9}, {
   3.561882869862629*^9, 3.561882872269458*^9}, {3.561882908666379*^9, 
   3.561882937481229*^9}, {3.561883077034436*^9, 3.561883077204958*^9}, {
   3.561883156863496*^9, 3.561883171584774*^9}, {3.561883207019829*^9, 
   3.56188320721021*^9}, {3.5618833148168497`*^9, 3.561883329545863*^9}, {
   3.561883441807706*^9, 3.561883490022347*^9}, {3.561883594390378*^9, 
   3.561883626093645*^9}, {3.561883790279728*^9, 3.561883791272485*^9}, {
   3.561883847853138*^9, 3.561883848132311*^9}, {3.56188391011318*^9, 
   3.561883976398731*^9}, {3.5618843041626596`*^9, 3.561884335993554*^9}, {
   3.561886375907865*^9, 3.561886376833001*^9}, {3.561886440923478*^9, 
   3.561886466437127*^9}, {3.561886652169339*^9, 3.56188666122576*^9}, {
   3.561886867975417*^9, 3.5618869103683662`*^9}, {3.5618869926941757`*^9, 
   3.561886997605433*^9}, {3.561887088117779*^9, 3.5618871419398937`*^9}, {
   3.5618871879132147`*^9, 3.561887197684217*^9}, {3.561887856364121*^9, 
   3.561887884307026*^9}, {3.561887924794478*^9, 3.561888085661454*^9}, {
   3.561888129846477*^9, 3.561888230915461*^9}, {3.561888422379456*^9, 
   3.5618884871268272`*^9}, {3.56188857994074*^9, 3.561888593656608*^9}, {
   3.561888647241295*^9, 3.561888688312698*^9}, {3.561888831039857*^9, 
   3.561888836422249*^9}, {3.561889216814498*^9, 3.561889256760062*^9}, {
   3.56188932840585*^9, 3.561889340152911*^9}, {3.5618893875341578`*^9, 
   3.5618894993327093`*^9}, 3.561889547024477*^9, {3.561889635340844*^9, 
   3.561889635674698*^9}, {3.5618896964494143`*^9, 3.561889703948907*^9}, {
   3.561889758150076*^9, 3.561889787638588*^9}, {3.561889831801918*^9, 
   3.561889855031538*^9}, {3.561889914662656*^9, 3.561889957250682*^9}, {
   3.561890178833706*^9, 3.561890251017687*^9}, 3.561890291580755*^9, {
   3.561890368957136*^9, 3.5618904299993267`*^9}, 3.5618904670805798`*^9, 
   3.561890509703271*^9, {3.561890641131168*^9, 3.5618906929515247`*^9}, {
   3.561890767620544*^9, 3.561890772082529*^9}, {3.561890936340152*^9, 
   3.561890964577306*^9}, {3.5618910585292873`*^9, 3.561891059172521*^9}, {
   3.561891122397093*^9, 3.561891139668353*^9}, {3.561891188676175*^9, 
   3.56189120411453*^9}, {3.561891259976623*^9, 3.5618912688674517`*^9}, {
   3.56189148082441*^9, 3.5618914809456587`*^9}, {3.56189161872013*^9, 
   3.561891671575561*^9}, {3.561892117926764*^9, 3.561892118493012*^9}, {
   3.5618935079495783`*^9, 3.5618935222667723`*^9}, {3.561893595712923*^9, 
   3.561893611706884*^9}, {3.561893643646096*^9, 3.5618936601838427`*^9}, {
   3.56189369609478*^9, 3.561893733856645*^9}, {3.561893768132169*^9, 
   3.561893796747582*^9}, {3.561894565344858*^9, 3.561894567515698*^9}, 
   3.561894691384025*^9, {3.5618956184069242`*^9, 3.561895620960022*^9}, {
   3.561895817897941*^9, 3.5618958338248034`*^9}, {3.5618959586642036`*^9, 
   3.5618960181831713`*^9}, {3.5618960892627974`*^9, 3.561896149668323*^9}, {
   3.561896252766773*^9, 3.561896264016573*^9}, {3.561897358800899*^9, 
   3.5618974024344463`*^9}, {3.561897556211218*^9, 3.561897559347888*^9}, {
   3.561897699495076*^9, 3.561897743834999*^9}, {3.561897788321459*^9, 
   3.561897788477809*^9}, {3.5618978979228773`*^9, 3.5618979051586733`*^9}, {
   3.5618997113892937`*^9, 3.561899736088254*^9}, {3.56190189911307*^9, 
   3.561901910380641*^9}, {3.561901963264937*^9, 3.5619020108432713`*^9}, {
   3.561902048908861*^9, 3.5619020590801077`*^9}, {3.561902108287908*^9, 
   3.561902162156743*^9}, 3.561902549879841*^9, 3.561903186204928*^9, {
   3.561903267039442*^9, 3.561903270738845*^9}, {3.561903323491605*^9, 
   3.56190334724816*^9}, {3.561903567974798*^9, 3.561903597699081*^9}, {
   3.561903696992713*^9, 3.561903698664093*^9}, {3.561903758291448*^9, 
   3.5619038142933397`*^9}, {3.561903899316453*^9, 3.561903908577057*^9}, {
   3.561903960461864*^9, 3.561903961053493*^9}, {3.561904322756913*^9, 
   3.5619043261727858`*^9}, {3.561904392553379*^9, 3.561904434133328*^9}, {
   3.5619049951543303`*^9, 3.561905012431115*^9}, {3.561905091433247*^9, 
   3.561905108945725*^9}, {3.561905144184598*^9, 3.561905171078096*^9}, {
   3.5619055644734507`*^9, 3.5619055661804447`*^9}, {3.56190563267212*^9, 
   3.561905635295553*^9}, {3.561905696712763*^9, 3.561905700512514*^9}, {
   3.561905793905973*^9, 3.561905843256769*^9}, {3.5619746546132383`*^9, 
   3.561974660315879*^9}, {3.561975696760838*^9, 3.5619757025770197`*^9}, {
   3.5619757518702374`*^9, 3.561975776074554*^9}, {3.56198294132204*^9, 
   3.56198301442845*^9}, {3.5619830996482687`*^9, 3.5619831001188927`*^9}, {
   3.561983131209361*^9, 3.5619831320300694`*^9}, {3.561983218880423*^9, 
   3.561983219097391*^9}, {3.562065202811819*^9, 3.562065203036237*^9}, 
   3.562065282521405*^9, {3.5620654238490477`*^9, 3.562065427801278*^9}, {
   3.562065517079406*^9, 3.5620655173230886`*^9}, {3.562067002327426*^9, 
   3.562067079689825*^9}, {3.56206716952879*^9, 3.562067171741008*^9}, {
   3.5620675613265123`*^9, 3.562067582625709*^9}, {3.562069107710935*^9, 
   3.562069124156466*^9}, {3.56206915814019*^9, 3.562069158543468*^9}, {
   3.5620700204008904`*^9, 3.5620700210041447`*^9}, 3.562070057247321*^9, {
   3.562071578873755*^9, 3.5620715904627123`*^9}, {3.562071786470476*^9, 
   3.562071787649177*^9}, {3.562072655035656*^9, 3.562072704189959*^9}, 
   3.5623121438973722`*^9, {3.562312191780026*^9, 3.5623122071612663`*^9}, {
   3.562312786293495*^9, 3.562312792098588*^9}, {3.562312846860276*^9, 
   3.562312853897366*^9}, {3.5623129044987383`*^9, 3.5623129202792387`*^9}, {
   3.5623131208691807`*^9, 3.562313124007513*^9}, {3.5623131556930103`*^9, 
   3.5623132081815968`*^9}, {3.562313248535673*^9, 3.562313270848756*^9}, {
   3.562313313703519*^9, 3.562313314244361*^9}, {3.562313520206091*^9, 
   3.562313524196515*^9}, {3.5623144764137278`*^9, 3.562314497034444*^9}, {
   3.562314557482147*^9, 3.562314559045521*^9}, {3.562315268592375*^9, 
   3.562315304861899*^9}, {3.562315796292591*^9, 3.562315797552194*^9}, {
   3.562316192145453*^9, 3.5623162981127567`*^9}, {3.562316334813637*^9, 
   3.562316359954973*^9}, {3.562318197247816*^9, 3.5623182056125937`*^9}, {
   3.5623182482014503`*^9, 3.562318252288466*^9}, {3.5623182874730062`*^9, 
   3.562318325584776*^9}, {3.562318366289014*^9, 3.56231840208475*^9}, {
   3.562318472274137*^9, 3.562318609944356*^9}, {3.562318644310774*^9, 
   3.5623186582988253`*^9}, {3.562318688434793*^9, 3.5623188197945337`*^9}, {
   3.562318869863168*^9, 3.562318996339169*^9}, {3.562320204917889*^9, 
   3.562320221113036*^9}, {3.562321115200535*^9, 3.562321180175683*^9}, {
   3.56232121018547*^9, 3.562321316065621*^9}, {3.56232250877564*^9, 
   3.562322541716058*^9}, {3.562328934344594*^9, 3.56232896998663*^9}, {
   3.562329040920665*^9, 3.562329082204823*^9}, {3.5623291402383337`*^9, 
   3.562329161906363*^9}, {3.562329305475746*^9, 3.5623293794396353`*^9}, {
   3.562329429512773*^9, 3.5623294968973207`*^9}, {3.562329536113831*^9, 
   3.562329653465583*^9}, {3.56232975438021*^9, 3.56232977692875*^9}, {
   3.562329854966874*^9, 3.562329862096884*^9}, {3.562329928848431*^9, 
   3.562329981207213*^9}, {3.562330051027483*^9, 3.562330079215023*^9}, {
   3.5623301401302843`*^9, 3.56233025736996*^9}, {3.5623303280814133`*^9, 
   3.562330411600129*^9}, {3.562330691014593*^9, 3.562330694523016*^9}, {
   3.562330752093536*^9, 3.5623307683376837`*^9}, {3.56233098025264*^9, 
   3.5623309805514708`*^9}, 3.5623311788588953`*^9, {3.562331277508939*^9, 
   3.562331280849503*^9}, {3.562331424753436*^9, 3.562331510064625*^9}, {
   3.562332606084195*^9, 3.562332608524935*^9}, {3.562332666446703*^9, 
   3.562332670141415*^9}, {3.562333598667316*^9, 3.562333699389124*^9}, {
   3.562486899711874*^9, 3.562486963899427*^9}, {3.562487534298347*^9, 
   3.56248758302779*^9}, {3.5624876422907753`*^9, 3.56248774041153*^9}, {
   3.562487793032276*^9, 3.562487904709009*^9}, {3.562488176499168*^9, 
   3.562488242067049*^9}, {3.562488274432084*^9, 3.562488330617525*^9}, {
   3.562488417714467*^9, 3.562488592922759*^9}, {3.562488774294299*^9, 
   3.562488819674551*^9}, {3.562488894909617*^9, 3.56248909942267*^9}, {
   3.5624891337860107`*^9, 3.562489144676065*^9}, 3.562489176422647*^9, {
   3.562489238712523*^9, 3.562489288070794*^9}, {3.562489361076508*^9, 
   3.562489411242627*^9}, {3.5624929277088957`*^9, 3.562492928290107*^9}, {
   3.5624929998931227`*^9, 3.5624930000581703`*^9}, {3.562493060769293*^9, 
   3.562493075265609*^9}, {3.5624931727583323`*^9, 3.5624932535055113`*^9}, {
   3.562493555461097*^9, 3.562493573386949*^9}, {3.562493636783485*^9, 
   3.562493651810996*^9}, {3.562493705349358*^9, 3.562493725593257*^9}, {
   3.56249377816568*^9, 3.562493884678121*^9}, {3.562493961003302*^9, 
   3.562493985189075*^9}, 3.562496729554925*^9, {3.5624972168210917`*^9, 
   3.562497224413665*^9}, {3.562497523371413*^9, 3.562497527110652*^9}, {
   3.562497674301394*^9, 3.56249770489456*^9}, {3.562498325440404*^9, 
   3.562498336440481*^9}, {3.562499083410448*^9, 3.56249910291595*^9}, {
   3.562581002152898*^9, 3.562581085395337*^9}, {3.562581147902894*^9, 
   3.562581167257737*^9}, {3.562582484327379*^9, 3.5625825076950417`*^9}, {
   3.562582553871729*^9, 3.562582601365754*^9}, {3.562586610894267*^9, 
   3.562586616135545*^9}, {3.562586682786749*^9, 3.562586693045187*^9}, {
   3.562586732053753*^9, 3.562587128379058*^9}, {3.562587178052923*^9, 
   3.562587188859683*^9}, {3.562587615594016*^9, 3.562587728121934*^9}, {
   3.562587842629874*^9, 3.562587920613905*^9}, {3.5625879562223873`*^9, 
   3.562588198480089*^9}, {3.56258825651786*^9, 3.562588569447941*^9}, {
   3.562588675759235*^9, 3.562588755273591*^9}, {3.5625888078055363`*^9, 
   3.562588935211268*^9}, {3.56258898889659*^9, 3.562588993141634*^9}, {
   3.562674084208755*^9, 3.5626741491067257`*^9}, 3.562674244603118*^9, {
   3.5626742772576036`*^9, 3.562674312770235*^9}, {3.5626743615556507`*^9, 
   3.5626743907371397`*^9}, {3.562674723189982*^9, 3.562674732113132*^9}, {
   3.562674802175826*^9, 3.562674854736224*^9}, {3.562674916433394*^9, 
   3.562674951943671*^9}, 3.562674997855435*^9, {3.562675035578309*^9, 
   3.5626751109171877`*^9}, {3.562675593197969*^9, 3.5626756034982157`*^9}, {
   3.5626756653689013`*^9, 3.5626757168927727`*^9}, {3.562677225340599*^9, 
   3.562677233181508*^9}, {3.562760354366869*^9, 3.5627603549580097`*^9}, {
   3.562760404102564*^9, 3.562760504424399*^9}, 3.5627605477852373`*^9, {
   3.562760603890444*^9, 3.562760627155334*^9}, 3.5627606811571417`*^9, {
   3.5627607923953133`*^9, 3.56276081585047*^9}, {3.562760852907587*^9, 
   3.562760861718651*^9}, {3.562760912895796*^9, 3.562760922083322*^9}, {
   3.562761140898032*^9, 3.562761142014118*^9}, {3.562763269426667*^9, 
   3.562763490465816*^9}, 3.562763547201008*^9, {3.562763600807056*^9, 
   3.562763645200317*^9}, {3.562763735577713*^9, 3.562763822953809*^9}, 
   3.562763897204258*^9, {3.56276421349044*^9, 3.5627642201986437`*^9}, {
   3.562764320931422*^9, 3.562764338766415*^9}, {3.562764521355647*^9, 
   3.562764593374919*^9}, {3.562764629707028*^9, 3.562764629826646*^9}, {
   3.562765117542964*^9, 3.562765165584484*^9}, {3.56276531168788*^9, 
   3.5627655158897743`*^9}, {3.56276569818579*^9, 3.562765699363682*^9}, {
   3.5627659150365887`*^9, 3.562765931609853*^9}, {3.56277319400152*^9, 
   3.562773194440143*^9}, {3.562773239598197*^9, 3.562773239965787*^9}, {
   3.562773357249374*^9, 3.562773361726748*^9}, {3.5627736606832123`*^9, 
   3.562773668517414*^9}, {3.5627737265738688`*^9, 3.562773743790387*^9}, {
   3.562773797949736*^9, 3.562773822443609*^9}, {3.562773859920944*^9, 
   3.562773880065084*^9}, {3.562773922683824*^9, 3.56277392459839*^9}, {
   3.562773987294796*^9, 3.562773995761422*^9}, {3.562774133089492*^9, 
   3.5627741536338997`*^9}, {3.562774310926062*^9, 3.56277432125036*^9}, {
   3.5627744079470167`*^9, 3.562774408511484*^9}, {3.562774626788659*^9, 
   3.562774627672624*^9}, {3.562774720424892*^9, 3.562774722070167*^9}, {
   3.562774757710663*^9, 3.5627747650374193`*^9}, {3.562774904764526*^9, 
   3.562774957103828*^9}, {3.5627756322974167`*^9, 3.562775692360796*^9}, {
   3.562775733252513*^9, 3.562775735673377*^9}, {3.562775947543086*^9, 
   3.5627759751970377`*^9}, {3.562776868307933*^9, 3.562776879426271*^9}, {
   3.5627769568681507`*^9, 3.562776957185719*^9}, {3.562777060910336*^9, 
   3.562777062968328*^9}, {3.562777131751711*^9, 3.562777156233386*^9}, {
   3.5627772674703817`*^9, 3.5627772900359163`*^9}, 3.562777391101091*^9, {
   3.562777687281576*^9, 3.56277769829988*^9}, {3.56277800623065*^9, 
   3.5627780097955847`*^9}, {3.562778148820997*^9, 3.562778150253899*^9}, {
   3.562781622322708*^9, 3.5627816272547894`*^9}, {3.562781691629705*^9, 
   3.562781697122319*^9}, {3.562782199957535*^9, 3.562782213081705*^9}, {
   3.562782281138297*^9, 3.562782282993163*^9}, {3.562782835053306*^9, 
   3.562782860298822*^9}, {3.562782935376751*^9, 3.562782938630912*^9}, {
   3.562782976865246*^9, 3.5627829846119013`*^9}, {3.562783932030342*^9, 
   3.562783970831758*^9}, {3.562785118567031*^9, 3.562785148457161*^9}, {
   3.56278546443878*^9, 3.562785469532949*^9}, {3.562824252236093*^9, 
   3.5628242531448803`*^9}, {3.562829747084373*^9, 3.562829754614497*^9}, {
   3.5628298704496727`*^9, 3.562829870866396*^9}, {3.562829930889542*^9, 
   3.562829934857802*^9}, {3.562830608205187*^9, 3.562830612169039*^9}, {
   3.562830901676351*^9, 3.562830902172946*^9}, {3.56283119902243*^9, 
   3.56283123911832*^9}, {3.562832059404084*^9, 3.562832078638741*^9}, {
   3.562832952671114*^9, 3.562832995846637*^9}, {3.562833140428393*^9, 
   3.562833163840571*^9}, {3.5628332502098303`*^9, 3.562833250398911*^9}, {
   3.5628359611591873`*^9, 3.5628359618534107`*^9}, {3.5628372353842773`*^9, 
   3.56283724293534*^9}, {3.562839029913128*^9, 3.562839070941103*^9}, {
   3.562842921373806*^9, 3.562842940034527*^9}, {3.5628462604838123`*^9, 
   3.562846265513241*^9}, {3.5628483440275393`*^9, 3.562848380115621*^9}, {
   3.56284843444762*^9, 3.562848446141975*^9}, {3.562849336403716*^9, 
   3.562849348479053*^9}, {3.5629288115375137`*^9, 3.562928842399886*^9}, 
   3.562928884262578*^9, {3.562931907459901*^9, 3.562931948569483*^9}, {
   3.562932500691921*^9, 3.562932642912488*^9}, {3.562933272665872*^9, 
   3.5629332963746653`*^9}, {3.562933327048353*^9, 3.5629333298005877`*^9}, {
   3.56293476183327*^9, 3.562934766621949*^9}, {3.562934857703373*^9, 
   3.562934882094008*^9}, {3.5629349536529627`*^9, 3.562934959603509*^9}, {
   3.562935002076313*^9, 3.562935005424436*^9}, {3.562937236357299*^9, 
   3.562937278007379*^9}, {3.56293732131511*^9, 3.562937324122155*^9}, {
   3.5629379616279507`*^9, 3.562937990317646*^9}, {3.562941279530493*^9, 
   3.562941332599387*^9}, {3.562941726460082*^9, 3.562941758389914*^9}, 
   3.563179533861864*^9, 3.563186798890005*^9, {3.563187820175997*^9, 
   3.563188015165276*^9}, {3.5631880666639833`*^9, 3.5631880670582457`*^9}, 
   3.5631889896397142`*^9, {3.563189441906898*^9, 3.563189502671082*^9}, 
   3.563189587322907*^9, 3.56318980991306*^9, {3.563190552083398*^9, 
   3.5631906362494717`*^9}, 3.563191148131559*^9, {3.563191221457478*^9, 
   3.56319122156752*^9}, {3.563193033407256*^9, 3.5631931502813597`*^9}, 
   3.563193228136259*^9, {3.563193273816107*^9, 3.56319335375104*^9}, {
   3.563193393792307*^9, 3.563193393995603*^9}, {3.5631977782040052`*^9, 
   3.5631977961417303`*^9}, {3.563197928485896*^9, 3.563197930162511*^9}, 
   3.563207149205419*^9, {3.5632074297164297`*^9, 3.563207465155171*^9}, {
   3.563207528348215*^9, 3.563207552215351*^9}, {3.5632075948981047`*^9, 
   3.563207607664402*^9}, 3.563207653411046*^9, 3.563207716819652*^9, {
   3.5632077756294937`*^9, 3.563207793479521*^9}, {3.5632078619136763`*^9, 
   3.563207881173957*^9}, {3.5632080987199087`*^9, 3.56320810513615*^9}, 
   3.563208680859796*^9, 3.56321024314819*^9, 3.5632109868299437`*^9, {
   3.563211240020396*^9, 3.563211250528202*^9}, 3.563258733769808*^9, 
   3.56325880181184*^9, {3.563258952349998*^9, 3.5632589729510193`*^9}, 
   3.5632597186601973`*^9, 3.563259771196293*^9, {3.563259801532872*^9, 
   3.563259816668228*^9}, {3.563259868839937*^9, 3.563259886037709*^9}, 
   3.563260060351194*^9, {3.56326011356312*^9, 3.563260122607175*^9}, 
   3.5632605854009857`*^9, {3.5632607911649017`*^9, 3.5632608082309504`*^9}, {
   3.56326101266693*^9, 3.563261020113593*^9}, {3.563261442841943*^9, 
   3.563261443187889*^9}, {3.563261694057836*^9, 3.5632617498817673`*^9}, {
   3.563261888399582*^9, 3.563261981921027*^9}, {3.5632747996500473`*^9, 
   3.563274807648315*^9}, {3.5632749991164417`*^9, 3.563275016063311*^9}, 
   3.5632754751274242`*^9, 3.563275509537344*^9, {3.563275543307952*^9, 
   3.563275695292416*^9}, {3.563276209899509*^9, 3.56327625224115*^9}, {
   3.563291508465946*^9, 3.563291534493064*^9}, {3.563291694192404*^9, 
   3.5632917465908937`*^9}, {3.563292095490477*^9, 3.5632921226639233`*^9}, {
   3.56329221420614*^9, 3.563292378700507*^9}, {3.563292428689034*^9, 
   3.563292521377222*^9}, {3.563292567547522*^9, 3.563292694024761*^9}, {
   3.563292742857424*^9, 3.563292753884966*^9}, {3.563293714732997*^9, 
   3.563293724132791*^9}, {3.563293759571548*^9, 3.563293760849393*^9}, {
   3.56329391180811*^9, 3.56329392334335*^9}, {3.563448289297545*^9, 
   3.563448289528768*^9}, {3.563448322019925*^9, 3.563448323283523*^9}, {
   3.563448490891499*^9, 3.563448594387854*^9}, {3.563448655670836*^9, 
   3.563448738591963*^9}, {3.563448774888925*^9, 3.56344888687879*^9}, {
   3.563449095294973*^9, 3.56344913172841*^9}, {3.563449310202065*^9, 
   3.563449311169327*^9}, {3.563449345595902*^9, 3.5634494034785833`*^9}, {
   3.563449520482985*^9, 3.5634495628768167`*^9}, {3.563449699191704*^9, 
   3.563449736546453*^9}, {3.5634498342786283`*^9, 3.563449876925043*^9}, {
   3.563450042664007*^9, 3.563450073813908*^9}, {3.5634508067527313`*^9, 
   3.5634508069363728`*^9}, {3.5634516190756397`*^9, 3.563451624736236*^9}, {
   3.5634516759570637`*^9, 3.563451685072466*^9}, {3.563455882228508*^9, 
   3.563455882757464*^9}, {3.5634561415876017`*^9, 3.563456151974538*^9}, {
   3.563457143132827*^9, 3.563457162812192*^9}, {3.563460982538762*^9, 
   3.563460994529169*^9}, {3.563461334858786*^9, 3.5634613750870256`*^9}, {
   3.56346251960424*^9, 3.5634625296565533`*^9}, {3.563467363396573*^9, 
   3.56346737352276*^9}, {3.563467541339678*^9, 3.563467541885109*^9}, {
   3.5635223284221888`*^9, 3.563522332687336*^9}, 3.5635225657598257`*^9, {
   3.5635226703166037`*^9, 3.56352270212422*^9}, {3.563522843034111*^9, 
   3.5635228947352324`*^9}, {3.563536754013563*^9, 3.563536810344051*^9}, {
   3.56353684479323*^9, 3.5635368464234343`*^9}, {3.563536954517329*^9, 
   3.56353696019466*^9}, {3.563540358793964*^9, 3.563540413894067*^9}, {
   3.563540486843482*^9, 3.563540488264035*^9}, {3.5635413748336363`*^9, 
   3.563541375291954*^9}, 3.563791341768792*^9, {3.5637914323106537`*^9, 
   3.563791449865693*^9}, {3.563791480660927*^9, 3.563791492677904*^9}, {
   3.5637921457222767`*^9, 3.563792149626214*^9}, {3.5640591968462543`*^9, 
   3.56405919921939*^9}, {3.56405932728722*^9, 3.564059332325857*^9}, {
   3.564665972070921*^9, 3.564666016437272*^9}, {3.564666272711789*^9, 
   3.564666280799197*^9}, {3.564748480939261*^9, 3.564748504021084*^9}, {
   3.564749163016567*^9, 3.564749236882769*^9}, {3.564758877314534*^9, 
   3.564758971236918*^9}, {3.564760070091113*^9, 3.564760118768264*^9}, {
   3.564760272805236*^9, 3.564760289246636*^9}, {3.564913615267028*^9, 
   3.56491361607973*^9}, {3.5649137296803217`*^9, 3.564913729871773*^9}, {
   3.564913761574708*^9, 3.564913786185383*^9}, {3.5649142941746073`*^9, 
   3.564914301494485*^9}, {3.5649143369368668`*^9, 3.564914337050612*^9}, {
   3.5649148284191628`*^9, 3.564914860372356*^9}, {3.564916117759536*^9, 
   3.564916118217318*^9}, {3.564916955497012*^9, 3.564916960705162*^9}, {
   3.564917477890897*^9, 3.564917503739134*^9}, {3.564917965446848*^9, 
   3.5649179748050613`*^9}, {3.5649180127508163`*^9, 3.564918023950687*^9}, {
   3.564918135903977*^9, 3.564918139419313*^9}, {3.564918281702077*^9, 
   3.564918284421112*^9}, {3.564991955811125*^9, 3.5649919571501627`*^9}, {
   3.564997605952468*^9, 3.564997639515978*^9}, {3.564999568254855*^9, 
   3.564999612209818*^9}, {3.565000273246628*^9, 3.565000287800668*^9}, {
   3.565000564732658*^9, 3.565000566553616*^9}, {3.5650005973908873`*^9, 
   3.565000629038294*^9}, {3.5650793976850863`*^9, 3.5650794261663733`*^9}, {
   3.565079664775303*^9, 3.56507966531115*^9}, {3.565081618161685*^9, 
   3.56508162202857*^9}, {3.5652580803352222`*^9, 3.5652580866050453`*^9}, {
   3.565258598911427*^9, 3.565258602748733*^9}, {3.565265328083798*^9, 
   3.565265360628504*^9}, {3.565265957174246*^9, 3.5652659627010098`*^9}, {
   3.565266872143255*^9, 3.565266877991469*^9}, {3.565267310460788*^9, 
   3.565267316694572*^9}, {3.5652835440095167`*^9, 3.56528379072375*^9}, {
   3.5652839125568733`*^9, 3.5652839127914543`*^9}, {3.565283963046803*^9, 
   3.5652840822885838`*^9}, {3.565284113664515*^9, 3.565284426869255*^9}, {
   3.565284463005831*^9, 3.5652844951113253`*^9}, {3.5652851226867237`*^9, 
   3.5652851471866493`*^9}, 3.5652872984516973`*^9, {3.56534424116282*^9, 
   3.565344251482636*^9}, {3.565344743872602*^9, 3.565344750797491*^9}, {
   3.5653449127656593`*^9, 3.5653449177329483`*^9}, {3.565446804146388*^9, 
   3.565446847316696*^9}, {3.5654587928965387`*^9, 3.565458800446122*^9}, {
   3.5660401744804*^9, 3.566040184051421*^9}, {3.5660402959791317`*^9, 
   3.5660402981152897`*^9}, {3.5660405948461523`*^9, 
   3.5660405979855022`*^9}, {3.5660641831414948`*^9, 3.566064275894659*^9}, {
   3.566064311134713*^9, 3.56606434769489*^9}, {3.5660644057049723`*^9, 
   3.566064579371017*^9}, 3.566289369381621*^9, 3.566289481470234*^9, {
   3.566301523765765*^9, 3.566301541747541*^9}, {3.566301586211776*^9, 
   3.5663016391922073`*^9}, {3.566302091297151*^9, 3.566302091625998*^9}, {
   3.5663032525496473`*^9, 3.5663032616465693`*^9}, {3.566303298278561*^9, 
   3.566303299787985*^9}, {3.5663043873800573`*^9, 3.56630440356954*^9}, {
   3.566304692760846*^9, 3.566304705592174*^9}, {3.566304736010631*^9, 
   3.566304736603716*^9}, {3.5663047858759623`*^9, 3.566304818915032*^9}, {
   3.566304862634446*^9, 3.566304971042247*^9}, {3.5663052950059013`*^9, 
   3.566305322973925*^9}, {3.566308089061454*^9, 3.566308101604767*^9}, 
   3.566308133885001*^9, {3.566308167596833*^9, 3.566308193027142*^9}, {
   3.566308409761581*^9, 3.566308440423998*^9}, {3.566405004933757*^9, 
   3.566405014549005*^9}, {3.566405162721758*^9, 3.5664051676458797`*^9}, {
   3.566474477597796*^9, 3.566474594404901*^9}, {3.566474662693837*^9, 
   3.566474782060854*^9}, {3.5664748749445553`*^9, 3.566474882475521*^9}, {
   3.566475195080757*^9, 3.566475413474001*^9}, {3.5664816471046267`*^9, 
   3.5664816795170527`*^9}, {3.566481875968215*^9, 3.5664819551587152`*^9}, {
   3.5664825834273233`*^9, 3.5664826059797077`*^9}, {3.5664826572997828`*^9, 
   3.566482672031045*^9}, {3.566482722889805*^9, 3.566482786276166*^9}, {
   3.566487441990469*^9, 3.566487442229063*^9}, {3.566488121017335*^9, 
   3.566488121352219*^9}, {3.566488544168085*^9, 3.566488545048798*^9}, {
   3.566550871546183*^9, 3.566550872373954*^9}, {3.56699850653872*^9, 
   3.56699853575014*^9}, {3.566998800371372*^9, 3.5669988120357237`*^9}, {
   3.567000125149715*^9, 3.5670001340486727`*^9}, {3.567000529136385*^9, 
   3.5670005732651367`*^9}, {3.5670006220825653`*^9, 3.567000628657654*^9}, {
   3.567001025485214*^9, 3.567001047676125*^9}, {3.5670017627910137`*^9, 
   3.5670017926171017`*^9}, {3.567178566767311*^9, 3.5671785991686563`*^9}, {
   3.567760940900468*^9, 3.5677609457466087`*^9}, {3.567761129740114*^9, 
   3.567761142276452*^9}, {3.5677612002023153`*^9, 3.5677612104540977`*^9}, {
   3.567761353397822*^9, 3.5677613614739113`*^9}, {3.5677613939203*^9, 
   3.567761395799286*^9}, {3.567761466718542*^9, 3.567761543846775*^9}, {
   3.5677615865866547`*^9, 3.567761629533004*^9}, {3.567762186103759*^9, 
   3.567762222319001*^9}, {3.567762327483379*^9, 3.567762364348153*^9}, {
   3.5677628249683943`*^9, 3.567762862854797*^9}, {3.567762907360012*^9, 
   3.56776292832335*^9}, {3.567762970706087*^9, 3.5677629709166*^9}, {
   3.567763123434483*^9, 3.5677631238472023`*^9}, {3.567763209316099*^9, 
   3.5677632723902073`*^9}, {3.5677633931175003`*^9, 3.567763496020815*^9}, {
   3.5677635528117247`*^9, 3.5677635613835173`*^9}, {3.567763614332967*^9, 
   3.567763678867503*^9}, {3.567763979723061*^9, 3.567764010987071*^9}, {
   3.56776405064755*^9, 3.567764076219298*^9}, {3.5677650045351667`*^9, 
   3.567765004748583*^9}, {3.567929608239249*^9, 3.567929610070693*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Plot", " ", "the", " ", "first"}], "-", 
    RowBox[{
    "lag", " ", "autocorrelation", " ", "coefficient", " ", "of", " ", "the", 
     " ", "median", " ", "profit", " ", "rates", " ", "and", " ", "growth", 
     " ", "in", " ", "market", " ", "value", " ", "series"}]}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Plot7", "=", 
    RowBox[{"ListPlot", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"acfMVAll", ",", "acfMV", ",", "acfPRAll", ",", "acfPR"}], 
       "}"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", " ", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "44"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ",", 
      RowBox[{"Axes", "\[Rule]", " ", 
       RowBox[{"{", 
        RowBox[{"True", ",", "False"}], "}"}]}], ",", 
      RowBox[{"AxesStyle", "\[Rule]", " ", "Thick"}], ",", 
      RowBox[{"Frame", "\[Rule]", " ", "True"}], ",", 
      RowBox[{"FrameStyle", "\[Rule]", " ", "Thick"}], ",", 
      RowBox[{"ImageSize", "\[Rule]", " ", "Large"}], ",", 
      RowBox[{"FrameLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"None", ",", 
         RowBox[{"Style", "[", 
          RowBox[{"\"\<Autocorrelation coefficient\>\"", ",", "14"}], "]"}]}],
         "}"}]}], ",", 
      RowBox[{"FrameTicksStyle", "\[Rule]", 
       RowBox[{"FontSize", "\[Rule]", "14"}]}], ",", 
      RowBox[{"GridLines", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"None", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"-", " ", 
               RowBox[{"Quantile", "[", 
                RowBox[{
                 RowBox[{"NormalDistribution", "[", 
                  RowBox[{"0", ",", "1"}], "]"}], ",", 
                 RowBox[{"1", "-", 
                  RowBox[{"0.05", "/", "2"}]}]}], "]"}]}], "/", 
              RowBox[{"Sqrt", "[", "15", "]"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"Red", ",", "Dashed"}], "}"}]}], "}"}], ",", "0", ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"Quantile", "[", 
               RowBox[{
                RowBox[{"NormalDistribution", "[", 
                 RowBox[{"0", ",", "1"}], "]"}], ",", 
                RowBox[{"1", "-", 
                 RowBox[{"0.05", "/", "2"}]}]}], "]"}], "/", 
              RowBox[{"Sqrt", "[", "15", "]"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"Red", ",", "Dashed"}], "}"}]}], "}"}]}], "}"}]}], 
        "}"}]}], ",", 
      RowBox[{"GridLinesStyle", "\[Rule]", " ", "Thick"}], ",", 
      RowBox[{"PlotMarkers", "\[Rule]", " ", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"\[FilledUpTriangle]", ",", "10"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"\[FilledCircle]", ",", "10"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"\[FilledDiamond]", ",", "10"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"\[FilledSquare]", ",", "10"}], "}"}]}], "}"}]}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Darker", "@", "Blue"}], ",", 
         RowBox[{"Darker", "@", "Blue"}], ",", "Red", ",", "Red"}], "}"}]}], 
      ",", 
      RowBox[{"Epilog", "\[Rule]", 
       RowBox[{"makePlotLegend", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "\"\<Growth rate of entire sample\>\"", ",", 
           "\"\<Growth rate of long-lived firms\>\"", ",", 
           "\"\<Profit rate of entire sample\>\"", ",", 
           "\"\<Profit rate of long-lived firms\>\""}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Graphics", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Darker", "@", "Blue"}], ",", 
              RowBox[{"Inset", "[", "\[FilledUpTriangle]", "]"}]}], "}"}], 
            "]"}], ",", 
           RowBox[{"Graphics", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Darker", "@", "Blue"}], ",", 
              RowBox[{"Inset", "[", "\[FilledCircle]", "]"}]}], "}"}], "]"}], 
           ",", 
           RowBox[{"Graphics", "[", 
            RowBox[{"{", 
             RowBox[{"Red", ",", 
              RowBox[{"Inset", "[", "\[FilledDiamond]", "]"}]}], "}"}], "]"}],
            ",", 
           RowBox[{"Graphics", "[", 
            RowBox[{"{", 
             RowBox[{"Red", ",", 
              RowBox[{"Inset", "[", "\[FilledSquare]", "]"}]}], "}"}], 
            "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.02", ",", "0.2"}], "}"}], ",", "12", ",", "12", ",", 
         "\"\<Arial\>\""}], "]"}]}], ",", 
      RowBox[{"FrameTicks", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"Automatic", ",", "None"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Transpose", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Range", "[", 
               RowBox[{"1", ",", "43"}], "]"}], ",", 
              RowBox[{
               RowBox[{
                RowBox[{"Rotate", "[", 
                 RowBox[{"#", ",", 
                  RowBox[{"90", "Degree"}]}], "]"}], "&"}], "/@", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"Text", "[", "#", "]"}], "&"}], "/@", "Countries"}],
                 ")"}]}]}], "}"}], "]"}], ",", "None"}], "}"}]}], "}"}]}]}], 
     "]"}]}], ";"}]}]], "Input",
 CellChangeTimes->{{3.562941766270418*^9, 3.5629417676607523`*^9}, {
   3.562941817548501*^9, 3.562941821824854*^9}, {3.562941934042885*^9, 
   3.562942004203435*^9}, {3.5630129465491457`*^9, 3.563012951486409*^9}, {
   3.5630131237149982`*^9, 3.563013200812642*^9}, {3.563013375884232*^9, 
   3.563013477550585*^9}, {3.563013516969953*^9, 3.563013539786681*^9}, {
   3.563013708067301*^9, 3.5630137245509787`*^9}, 3.5630137571673183`*^9, {
   3.563013841629627*^9, 3.5630138562852488`*^9}, {3.563013894295065*^9, 
   3.563013911190589*^9}, {3.56301401919105*^9, 3.5630140227699947`*^9}, {
   3.563014053560216*^9, 3.563014054098278*^9}, {3.56301409279008*^9, 
   3.563014129894718*^9}, {3.563014191651639*^9, 3.563014275303914*^9}, {
   3.563014324087096*^9, 3.563014327998589*^9}, {3.563181004687845*^9, 
   3.563181028195606*^9}, {3.563181259390613*^9, 3.563181263483305*^9}, {
   3.563181366456729*^9, 3.56318137264193*^9}, {3.563187001708226*^9, 
   3.563187031527012*^9}, {3.5631877168480177`*^9, 3.5631877378372393`*^9}, {
   3.563211725070592*^9, 3.563211725499524*^9}, {3.563275785745029*^9, 
   3.563275807327918*^9}, {3.56327585928091*^9, 3.563275860262841*^9}, {
   3.563276065923221*^9, 3.5632760829503117`*^9}, {3.563276286495779*^9, 
   3.563276287564258*^9}, {3.563276443862763*^9, 3.563276589084346*^9}, {
   3.563276653169959*^9, 3.563276746337433*^9}, {3.563276789102429*^9, 
   3.5632768787138433`*^9}, 3.5632770092250767`*^9, {3.56329159978543*^9, 
   3.563291599983008*^9}, {3.563293158544815*^9, 3.5632931961597433`*^9}, {
   3.5632939966884108`*^9, 3.563294033702023*^9}, {3.563306195310766*^9, 
   3.563306239664262*^9}, {3.5634490029761868`*^9, 3.563449004379743*^9}, {
   3.563449144089452*^9, 3.56344914429247*^9}, {3.563450190520748*^9, 
   3.5634502443379593`*^9}, {3.5634502779014187`*^9, 3.563450280870391*^9}, {
   3.563450359263484*^9, 3.5634504382296963`*^9}, {3.563450499652493*^9, 
   3.563450557135234*^9}, {3.563450611964469*^9, 3.563450795988348*^9}, {
   3.563451466764247*^9, 3.563451490423892*^9}, {3.563451748701799*^9, 
   3.563451755340849*^9}, {3.5634519321671963`*^9, 3.563452119429181*^9}, {
   3.563452470609378*^9, 3.56345247666846*^9}, {3.563452532350113*^9, 
   3.563452548168662*^9}, {3.563452657716745*^9, 3.563452707698114*^9}, {
   3.563452839364985*^9, 3.563452950751833*^9}, {3.563453022932344*^9, 
   3.5634530829668627`*^9}, {3.563453114057132*^9, 3.5634531420527353`*^9}, {
   3.563453198133094*^9, 3.5634532527435207`*^9}, {3.56345330080615*^9, 
   3.563453334671338*^9}, {3.563453392521946*^9, 3.563453408959947*^9}, {
   3.563453738568705*^9, 3.563453826929275*^9}, {3.563453866702201*^9, 
   3.563454162501384*^9}, {3.5634557863785152`*^9, 3.563455786912518*^9}, {
   3.563455881844852*^9, 3.563455882088869*^9}, {3.563457171684058*^9, 
   3.563457177316991*^9}, {3.563457530908638*^9, 3.5634575731144457`*^9}, {
   3.5634577075570107`*^9, 3.5634577681143827`*^9}, {3.5634591281675577`*^9, 
   3.563459128650094*^9}, {3.563459294933831*^9, 3.56345939361861*^9}, {
   3.563461410701236*^9, 3.56346142353349*^9}, {3.5634614588193913`*^9, 
   3.56346148033873*^9}, {3.563461511029427*^9, 3.5634615275721493`*^9}, 
   3.5634623647947683`*^9, {3.563468189467558*^9, 3.563468190418212*^9}, {
   3.563469304292227*^9, 3.56346931638265*^9}, {3.5634694010672197`*^9, 
   3.563469409217277*^9}, {3.56346945999763*^9, 3.563469531156732*^9}, {
   3.563469572418347*^9, 3.5634695824825068`*^9}, {3.5634696225803347`*^9, 
   3.563469625212799*^9}, {3.5634697922913313`*^9, 3.563469793118216*^9}, {
   3.563469832378076*^9, 3.563469832812606*^9}, 3.56347075025226*^9, {
   3.563472079229425*^9, 3.563472080929399*^9}, {3.563472128821622*^9, 
   3.563472130346999*^9}, {3.56347351876101*^9, 3.5634735643387213`*^9}, {
   3.563522973914282*^9, 3.56352302916995*^9}, {3.5635231180555964`*^9, 
   3.563523282326583*^9}, {3.5635235193444033`*^9, 3.563523578363055*^9}, {
   3.563525418560946*^9, 3.563525445552866*^9}, {3.563528749705426*^9, 
   3.563528751567215*^9}, {3.56353701554213*^9, 3.563537084868864*^9}, {
   3.563537138298431*^9, 3.563537161085779*^9}, {3.563537332752324*^9, 
   3.563537347445271*^9}, {3.56354071723146*^9, 3.563540739894696*^9}, {
   3.563540794362836*^9, 3.5635408109141293`*^9}, {3.564060176005972*^9, 
   3.564060193551752*^9}, {3.5640631855561457`*^9, 3.5640631895735807`*^9}, {
   3.564064756544086*^9, 3.564064759602174*^9}, {3.564666329846815*^9, 
   3.5646663323877077`*^9}, {3.564666366477827*^9, 3.564666373365334*^9}, {
   3.564748517674972*^9, 3.5647485200098953`*^9}, {3.564749668013157*^9, 
   3.564749671773198*^9}, {3.56475819184192*^9, 3.564758246742456*^9}, {
   3.564758788622424*^9, 3.564758791085347*^9}, {3.564759029726305*^9, 
   3.5647590640848227`*^9}, {3.5647601562917023`*^9, 3.564760173480097*^9}, {
   3.5647602146176147`*^9, 3.5647602171906967`*^9}, {3.564914337098287*^9, 
   3.564914337420191*^9}, {3.5649149029430923`*^9, 3.5649149193461237`*^9}, 
   3.564916907821073*^9, {3.564917508191766*^9, 3.564917526473866*^9}, {
   3.564918305811673*^9, 3.56491831034199*^9}, 3.564918374385003*^9, {
   3.564918580887796*^9, 3.564918614189784*^9}, {3.564991979607148*^9, 
   3.56499200140819*^9}, {3.564996005941757*^9, 3.5649960080219107`*^9}, {
   3.564996155442449*^9, 3.564996162758923*^9}, {3.565011041371293*^9, 
   3.5650110421685266`*^9}, {3.5650110816903687`*^9, 3.565011082454234*^9}, {
   3.5652584261277018`*^9, 3.5652584319358463`*^9}, {3.5652593171288137`*^9, 
   3.565259323575163*^9}, {3.5652673332627583`*^9, 3.565267338800693*^9}, {
   3.565267389772709*^9, 3.565267396162972*^9}, {3.565267448279068*^9, 
   3.565267449941147*^9}, 3.565267567535501*^9, 3.565271032928894*^9, {
   3.565271079067457*^9, 3.565271236225526*^9}, {3.565271351221867*^9, 
   3.565271360128715*^9}, {3.565271390799396*^9, 3.565271530149767*^9}, {
   3.565271569471414*^9, 3.565271607799903*^9}, {3.5652727492676287`*^9, 
   3.565272775507111*^9}, {3.565272816309971*^9, 3.565272836861491*^9}, {
   3.565286076670691*^9, 3.5652860839914293`*^9}, {3.565344272717126*^9, 
   3.565344300327457*^9}, {3.5653443633667316`*^9, 3.565344367498486*^9}, {
   3.565344425473847*^9, 3.565344461400423*^9}, {3.565345482070269*^9, 
   3.565345487582707*^9}, {3.565345609783986*^9, 3.565345615336152*^9}, {
   3.565447112883945*^9, 3.565447119134943*^9}, {3.565447292653975*^9, 
   3.565447315692617*^9}, {3.5654544184683867`*^9, 3.565454419200412*^9}, {
   3.5654545947495193`*^9, 3.565454610044319*^9}, 3.565455242659734*^9, {
   3.5654586361860533`*^9, 3.565458648505125*^9}, {3.5654622388702297`*^9, 
   3.5654622678770933`*^9}, {3.5660402263647213`*^9, 3.566040228866186*^9}, {
   3.566064597464651*^9, 3.5660645989932756`*^9}, {3.566289396079443*^9, 
   3.56628944602878*^9}, {3.5662971209240017`*^9, 3.566297163598559*^9}, {
   3.566297255818596*^9, 3.566297312073303*^9}, {3.56629736662719*^9, 
   3.566297369754908*^9}, {3.566297486443025*^9, 3.566297488697377*^9}, 
   3.566297526234632*^9, 3.5662977330576468`*^9, {3.566297791474618*^9, 
   3.566297827670746*^9}, {3.5663001013805227`*^9, 3.566300204313798*^9}, {
   3.56630024207624*^9, 3.5663002545289392`*^9}, {3.566300854028325*^9, 
   3.566300911043571*^9}, {3.566300942795849*^9, 3.566300961394067*^9}, {
   3.566301010707926*^9, 3.566301084076335*^9}, {3.566302108611164*^9, 
   3.5663021106141777`*^9}, {3.566306314126251*^9, 3.566306317695167*^9}, {
   3.566307355404874*^9, 3.566307376265512*^9}, {3.566307420661344*^9, 
   3.5663074232362223`*^9}, {3.566308444497426*^9, 3.566308452789152*^9}, {
   3.5664050627631598`*^9, 3.5664050992913513`*^9}, {3.566487442507894*^9, 
   3.5664874432515993`*^9}, {3.566488121445117*^9, 3.566488122390571*^9}, {
   3.5665506542875147`*^9, 3.566550754840582*^9}, {3.56655160752099*^9, 
   3.566551625020919*^9}, {3.566551766885519*^9, 3.566551826867722*^9}, {
   3.566552852904911*^9, 3.566552922190443*^9}, {3.566552954908002*^9, 
   3.566553027984194*^9}, {3.566553094459483*^9, 3.5665531057657843`*^9}, {
   3.566553418989583*^9, 3.566553438419792*^9}, {3.566553760478253*^9, 
   3.566553800434464*^9}, {3.56655984392527*^9, 3.566559871094347*^9}, {
   3.566559924488942*^9, 3.566559926163287*^9}, {3.566559970229101*^9, 
   3.566559992927026*^9}, {3.566560031853694*^9, 3.566560051402775*^9}, {
   3.566560243837626*^9, 3.566560274215802*^9}, {3.566560440192646*^9, 
   3.5665604411476793`*^9}, {3.5669986648264523`*^9, 
   3.5669987546670923`*^9}, {3.566998840163396*^9, 3.566998857578987*^9}, {
   3.566998899680644*^9, 3.566998901776085*^9}, {3.566999086293893*^9, 
   3.566999088312989*^9}, {3.566999118632946*^9, 3.566999127266378*^9}, {
   3.567001813814818*^9, 3.567001816268839*^9}, {3.567086336775352*^9, 
   3.567086336888401*^9}, {3.5677641366262007`*^9, 3.5677641389271317`*^9}, {
   3.567764179881772*^9, 3.567764232898305*^9}, {3.567765007861087*^9, 
   3.567765008540989*^9}, {3.567765067883502*^9, 3.567765105730929*^9}, {
   3.567765184018632*^9, 3.567765190150546*^9}, {3.567765229040094*^9, 
   3.567765292794223*^9}}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "Import", " ", "weights", " ", "for", " ", "weighted", " ", "least", " ", 
    "squares", " ", "regression"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"WeightMVFull", "=", 
     RowBox[{
     "Import", "[", "\"\<Data/in local curr/WeightMVFull.csv\>\"", "]"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"WeightMVLong", "=", 
     RowBox[{
     "Import", "[", "\"\<Data/in local curr/WeightMVLong.csv\>\"", "]"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"WeightTAFull", "=", 
     RowBox[{
     "Import", "[", "\"\<Data/in local curr/WeightTAFull.csv\>\"", "]"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"WeightTALong", "=", 
     RowBox[{
     "Import", "[", "\"\<Data/in local curr/WeightTALong.csv\>\"", "]"}]}], 
    ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"baddata", "[", "entry_", "]"}], ":=", 
     RowBox[{"Not", "[", 
      RowBox[{"MatchQ", "[", 
       RowBox[{"entry", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"_", "?", "NumberQ"}], ",", 
          RowBox[{"_", "?", "NumberQ"}]}], "}"}]}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "Scatterplot", " ", "\"\<median vs. Median\>\"", " ", "entire", " ", 
     "sample"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"CountriesScatter", "=", "Countries"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"dataScatter", "=", 
     RowBox[{"Transpose", "@", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"MediansOfPR", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
        RowBox[{"MediansOfGrMV", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "}"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"badpos", "=", 
     RowBox[{"Position", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"baddata", "[", "#", "]"}], "&"}], "/@", "dataScatter"}], 
       ",", "True"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"dataScatter", "=", 
     RowBox[{"Delete", "[", 
      RowBox[{"dataScatter", ",", "badpos"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"CountriesScatter", "=", 
     RowBox[{"Delete", "[", 
      RowBox[{"CountriesScatter", ",", "badpos"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"dataScatter", "=", 
     RowBox[{"MapThread", "[", 
      RowBox[{"Prepend", ",", 
       RowBox[{"{", 
        RowBox[{"dataScatter", ",", "CountriesScatter"}], "}"}]}], "]"}]}], 
    ";"}], "\n", 
   RowBox[{
    RowBox[{"dataPlot", "=", 
     RowBox[{"ListPlot", "[", 
      RowBox[{
       RowBox[{"dataScatter", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Red", ",", 
          RowBox[{"PointSize", "\[Rule]", " ", "Medium"}]}], "}"}]}], ",", 
       RowBox[{"FrameLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"\"\<Median of the median profit rates\>\"", ",", "14"}], 
           "]"}], ",", 
          RowBox[{"Style", "[", 
           RowBox[{"\"\<Median of the median growth rates\>\"", ",", "14"}], 
           "]"}]}], "}"}]}], ",", 
       RowBox[{"Frame", "\[Rule]", " ", "True"}], ",", 
       RowBox[{"FrameStyle", "\[Rule]", " ", "Thick"}], ",", 
       RowBox[{"Axes", "\[Rule]", " ", "False"}], ",", 
       RowBox[{"FrameTicksStyle", "\[Rule]", 
        RowBox[{"FontSize", "\[Rule]", "14"}]}], 
       RowBox[{"(*", 
        RowBox[{",", 
         RowBox[{"PlotLabel", "\[Rule]", 
          RowBox[{"Style", "[", 
           RowBox[{"\"\<Entire sample\>\"", ",", "14"}], "]"}]}]}], "*)"}], 
       ",", 
       RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{"labels", "=", 
     RowBox[{
      RowBox[{
       RowBox[{"Text", "[", 
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
         RowBox[{
          RowBox[{"-", "0.004"}], "+", 
          RowBox[{"#", "[", 
           RowBox[{"[", 
            RowBox[{"{", 
             RowBox[{"2", ",", "3"}], "}"}], "]"}], "]"}]}]}], "]"}], "&"}], "/@",
       "dataScatter"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "Weighted", " ", "least", " ", "squares", " ", "regression", " ", "of", 
     " ", "the", " ", "median", " ", "growth", " ", "rate", " ", "of", " ", 
     "market", " ", "value", " ", "on", " ", "the", " ", "median", " ", 
     "profit", " ", "rate"}], " ", "*)"}], "\n", 
   RowBox[{
    RowBox[{"lm3", "=", 
     RowBox[{"LinearModelFit", "[", 
      RowBox[{
       RowBox[{"dataScatter", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}]}], "]"}], "]"}], ",", "x", ",", "x",
        ",", 
       RowBox[{"Weights", "\[Rule]", " ", 
        RowBox[{"WeightMVFull", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "2"}], "]"}], "]"}]}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"lm3", "[", "\"\<ParameterTable\>\"", "]"}], "\[IndentingNewLine]", 
   RowBox[{"Plot3", "=", 
    RowBox[{"Show", "[", 
     RowBox[{"dataPlot", ",", 
      RowBox[{"Graphics", "[", 
       RowBox[{"{", 
        RowBox[{"Black", ",", "labels"}], "}"}], "]"}], ",", 
      RowBox[{"Plot", "[", 
       RowBox[{
        RowBox[{"lm3", "[", "x", "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", 
          RowBox[{"-", "0.07"}], ",", "0.11"}], "}"}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", "Black"}]}], "]"}], ",", 
      RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"Clear", "[", 
    RowBox[{
    "dataScatter", ",", "CountriesScatter", ",", "badpos", ",", "dataPlot", 
     ",", "labels"}], "]"}], " ", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"Scatterplot", " ", "\"\<median vs. median\>\"", " ", "long"}], 
     "-", "lived"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"CountriesScatter", "=", "Countries"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"dataScatter", "=", 
     RowBox[{"Transpose", "@", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"MediansOfPR", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", 
        RowBox[{"MediansOfGrMV", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "}"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"badpos", "=", 
     RowBox[{"Position", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"baddata", "[", "#", "]"}], "&"}], "/@", "dataScatter"}], 
       ",", "True"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"dataScatter", "=", 
     RowBox[{"Delete", "[", 
      RowBox[{"dataScatter", ",", "badpos"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"CountriesScatter", "=", 
     RowBox[{"Delete", "[", 
      RowBox[{"CountriesScatter", ",", "badpos"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"dataScatter", "=", 
     RowBox[{"MapThread", "[", 
      RowBox[{"Prepend", ",", 
       RowBox[{"{", 
        RowBox[{"dataScatter", ",", "CountriesScatter"}], "}"}]}], "]"}]}], 
    ";"}], "\n", 
   RowBox[{
    RowBox[{"dataPlot", "=", 
     RowBox[{"ListPlot", "[", 
      RowBox[{
       RowBox[{"dataScatter", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Red", ",", 
          RowBox[{"PointSize", "\[Rule]", " ", "Medium"}]}], "}"}]}], ",", 
       RowBox[{"FrameLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"\"\<Median of the median profit rates\>\"", ",", "14"}], 
           "]"}], ",", 
          RowBox[{"Style", "[", 
           RowBox[{"\"\<Median of the median growth rates\>\"", ",", "14"}], 
           "]"}]}], "}"}]}], ",", 
       RowBox[{"Frame", "\[Rule]", " ", "True"}], ",", 
       RowBox[{"FrameStyle", "\[Rule]", " ", "Thick"}], ",", 
       RowBox[{"Axes", "\[Rule]", " ", "False"}], ",", 
       RowBox[{"FrameTicksStyle", "\[Rule]", 
        RowBox[{"FontSize", "\[Rule]", "14"}]}], 
       RowBox[{"(*", 
        RowBox[{",", 
         RowBox[{"PlotLabel", "\[Rule]", 
          RowBox[{"Style", "[", 
           RowBox[{"\"\<Entire sample\>\"", ",", "14"}], "]"}]}]}], "*)"}], 
       ",", 
       RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{"labels", "=", 
     RowBox[{
      RowBox[{
       RowBox[{"Text", "[", 
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
         RowBox[{
          RowBox[{"-", "0.004"}], "+", 
          RowBox[{"#", "[", 
           RowBox[{"[", 
            RowBox[{"{", 
             RowBox[{"2", ",", "3"}], "}"}], "]"}], "]"}]}]}], "]"}], "&"}], "/@",
       "dataScatter"}]}], ";"}], "\n", 
   RowBox[{"(*", " ", 
    RowBox[{
    "Weighted", " ", "least", " ", "squares", " ", "regression", " ", "of", 
     " ", "the", " ", "median", " ", "growth", " ", "rate", " ", "of", " ", 
     "market", " ", "value", " ", "on", " ", "the", " ", "median", " ", 
     "profit", " ", "rate"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"lm4", "=", 
     RowBox[{"LinearModelFit", "[", 
      RowBox[{
       RowBox[{"dataScatter", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}]}], "]"}], "]"}], ",", "x", ",", "x",
        ",", 
       RowBox[{"Weights", "\[Rule]", " ", 
        RowBox[{"WeightMVLong", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "2"}], "]"}], "]"}]}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"lm4", "[", "\"\<ParameterTable\>\"", "]"}], "\[IndentingNewLine]", 
   RowBox[{"Plot4", "=", 
    RowBox[{"Show", "[", 
     RowBox[{"dataPlot", ",", 
      RowBox[{"Graphics", "[", 
       RowBox[{"{", 
        RowBox[{"Black", ",", "labels"}], "}"}], "]"}], ",", 
      RowBox[{"Plot", "[", 
       RowBox[{
        RowBox[{"lm4", "[", "x", "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "0", ",", "0.11"}], "}"}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", "Black"}]}], "]"}], ",", 
      RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"Clear", "[", 
    RowBox[{
    "dataScatter", ",", "CountriesScatter", ",", "badpos", ",", "dataPlot", 
     ",", "labels"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "Scatterplot", " ", 
     "\"\<median absolute deviation vs. median absolute deviation\>\"", " ", 
     "entire", " ", "sample"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"CountriesScatter", "=", "Countries"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"dataScatter", "=", 
     RowBox[{"Transpose", "@", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"MediansOfVolOfPR", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
        RowBox[{"MediansOfVolOfGrMV", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "}"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"badpos", "=", 
     RowBox[{"Position", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"baddata", "[", "#", "]"}], "&"}], "/@", "dataScatter"}], 
       ",", "True"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"dataScatter", "=", 
     RowBox[{"Delete", "[", 
      RowBox[{"dataScatter", ",", "badpos"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"CountriesScatter", "=", 
     RowBox[{"Delete", "[", 
      RowBox[{"CountriesScatter", ",", "badpos"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"dataScatter", "=", 
     RowBox[{"MapThread", "[", 
      RowBox[{"Prepend", ",", 
       RowBox[{"{", 
        RowBox[{"dataScatter", ",", "CountriesScatter"}], "}"}]}], "]"}]}], 
    ";"}], "\n", 
   RowBox[{
    RowBox[{"dataPlot", "=", 
     RowBox[{"ListPlot", "[", 
      RowBox[{
       RowBox[{"dataScatter", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Red", ",", 
          RowBox[{"PointSize", "\[Rule]", " ", "Medium"}]}], "}"}]}], ",", 
       RowBox[{"FrameLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{
           "\"\<Median absolute deviation of the median profit rates\>\"", 
            ",", "14"}], "]"}], ",", 
          RowBox[{"Style", "[", 
           RowBox[{
           "\"\<Median absolute deviation of the median growth rates\>\"", 
            ",", "14"}], "]"}]}], "}"}]}], ",", 
       RowBox[{"Frame", "\[Rule]", " ", "True"}], ",", 
       RowBox[{"FrameStyle", "\[Rule]", " ", "Thick"}], ",", 
       RowBox[{"Axes", "\[Rule]", " ", "False"}], ",", 
       RowBox[{"FrameTicksStyle", "\[Rule]", 
        RowBox[{"FontSize", "\[Rule]", "14"}]}], ",", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"PlotLabel", "\[Rule]", 
          RowBox[{"Style", "[", 
           RowBox[{"\"\<Entire sample\>\"", ",", "14"}], "]"}]}], ","}], 
        "*)"}], 
       RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{"labels", "=", 
     RowBox[{
      RowBox[{
       RowBox[{"Text", "[", 
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
         RowBox[{"0.0012", "+", 
          RowBox[{"#", "[", 
           RowBox[{"[", 
            RowBox[{"{", 
             RowBox[{"2", ",", "3"}], "}"}], "]"}], "]"}]}]}], "]"}], "&"}], "/@",
       "dataScatter"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "Weighted", " ", "least", " ", "squares", " ", "regression", " ", "of", 
     " ", "the", " ", "median", " ", "absolute", " ", "deviation", " ", "of", 
     " ", "growth", " ", "in", " ", "market", " ", "value", " ", "on", " ", 
     "the", " ", "median", " ", "absolute", " ", "deviation", " ", "of", " ", 
     "profit", " ", "rates"}], " ", "*)"}], "\n", 
   RowBox[{
    RowBox[{"lm9", "=", 
     RowBox[{"LinearModelFit", "[", 
      RowBox[{
       RowBox[{"dataScatter", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}]}], "]"}], "]"}], ",", "x", ",", "x",
        ",", 
       RowBox[{"Weights", "\[Rule]", 
        RowBox[{"WeightMVFull", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "2"}], "]"}], "]"}]}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"lm9", "[", "\"\<ParameterTable\>\"", "]"}], "\[IndentingNewLine]", 
   RowBox[{"Plot9", "=", 
    RowBox[{"Show", "[", 
     RowBox[{"dataPlot", ",", 
      RowBox[{"Graphics", "[", 
       RowBox[{"{", 
        RowBox[{"Black", ",", "labels"}], "}"}], "]"}], ",", 
      RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", " ", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0.035"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0.4"}], "}"}]}], "}"}]}]}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"Clear", "[", 
    RowBox[{
    "dataScatter", ",", "CountriesScatter", ",", "badpos", ",", "dataPlot", 
     ",", "labels"}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "Weighted", " ", "least", " ", "squares", " ", "regression", " ", "of", 
     " ", "the", " ", "median", " ", "absolute", " ", "deviation", " ", "of", 
     " ", "profit", " ", "rates", " ", "on", " ", "the", " ", "median", " ", 
     "absolute", " ", "deviation", " ", "of", " ", "growth", " ", "in", " ", 
     "market", " ", "value"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"dataScatter", "=", 
     RowBox[{"Transpose", "@", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"MediansOfVolOfGrMV", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
        RowBox[{"MediansOfVolOfPR", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "}"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"badpos", "=", 
     RowBox[{"Position", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"baddata", "[", "#", "]"}], "&"}], "/@", "dataScatter"}], 
       ",", "True"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"dataScatter", "=", 
     RowBox[{"Delete", "[", 
      RowBox[{"dataScatter", ",", "badpos"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"LinearModelFit", "[", 
     RowBox[{"dataScatter", ",", "x", ",", "x", ",", 
      RowBox[{"Weights", "\[Rule]", 
       RowBox[{"WeightTAFull", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "2"}], "]"}], "]"}]}]}], "]"}], "[", 
    "\"\<ParameterTable\>\"", "]"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
     "Plot", " ", "of", " ", "median", " ", "absolute", " ", "deviation", " ", 
      RowBox[{"vs", ".", " ", "median"}], " ", "absolute", " ", "deviation", 
      " ", "long"}], "-", 
     RowBox[{"lived", " ", "only"}]}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"CountriesScatter", "=", "Countries"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"dataScatter", "=", 
     RowBox[{"Transpose", "@", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"MediansOfVolOfPR", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", 
        RowBox[{"MediansOfVolOfGrMV", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "}"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"badpos", "=", 
     RowBox[{"Position", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"baddata", "[", "#", "]"}], "&"}], "/@", "dataScatter"}], 
       ",", "True"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"dataScatter", "=", 
     RowBox[{"Delete", "[", 
      RowBox[{"dataScatter", ",", "badpos"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"CountriesScatter", "=", 
     RowBox[{"Delete", "[", 
      RowBox[{"CountriesScatter", ",", "badpos"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"dataScatter", "=", 
     RowBox[{"MapThread", "[", 
      RowBox[{"Prepend", ",", 
       RowBox[{"{", 
        RowBox[{"dataScatter", ",", "CountriesScatter"}], "}"}]}], "]"}]}], 
    ";"}], "\n", 
   RowBox[{
    RowBox[{"dataPlot", "=", 
     RowBox[{"ListPlot", "[", 
      RowBox[{
       RowBox[{"dataScatter", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Red", ",", 
          RowBox[{"PointSize", "\[Rule]", " ", "Medium"}]}], "}"}]}], ",", 
       RowBox[{"FrameLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{
           "\"\<Median absolute deviation of the median profit rates\>\"", 
            ",", "14"}], "]"}], ",", 
          RowBox[{"Style", "[", 
           RowBox[{
           "\"\<Median absolute deviation of the median growth rates\>\"", 
            ",", "14"}], "]"}]}], "}"}]}], ",", 
       RowBox[{"Frame", "\[Rule]", " ", "True"}], ",", 
       RowBox[{"FrameStyle", "\[Rule]", " ", "Thick"}], ",", 
       RowBox[{"Axes", "\[Rule]", " ", "False"}], ",", 
       RowBox[{"FrameTicksStyle", "\[Rule]", 
        RowBox[{"FontSize", "\[Rule]", "14"}]}], ",", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"PlotLabel", "\[Rule]", 
          RowBox[{"Style", "[", 
           RowBox[{"\"\<Long-lived firms\>\"", ",", "14"}], "]"}]}], ","}], 
        "*)"}], 
       RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{"labels", "=", 
     RowBox[{
      RowBox[{
       RowBox[{"Text", "[", 
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
         RowBox[{"0.0015", "+", 
          RowBox[{"#", "[", 
           RowBox[{"[", 
            RowBox[{"{", 
             RowBox[{"2", ",", "3"}], "}"}], "]"}], "]"}]}]}], "]"}], "&"}], "/@",
       "dataScatter"}]}], ";"}], "\n", 
   RowBox[{"(*", " ", 
    RowBox[{
    "Weighted", " ", "least", " ", "squares", " ", "regression", " ", "of", 
     " ", "the", " ", "median", " ", "absolute", " ", "deviation", " ", "of", 
     " ", "growth", " ", "in", " ", "market", " ", "value", " ", "on", " ", 
     "the", " ", "median", " ", "absolute", " ", "deviation", " ", "of", " ", 
     "profit", " ", "rates"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"lm6", "=", 
     RowBox[{"LinearModelFit", "[", 
      RowBox[{
       RowBox[{"dataScatter", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}]}], "]"}], "]"}], ",", "x", ",", "x",
        ",", 
       RowBox[{"Weights", "\[Rule]", " ", 
        RowBox[{"WeightMVLong", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "2"}], "]"}], "]"}]}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"lm6", "[", "\"\<ParameterTable\>\"", "]"}], "\[IndentingNewLine]", 
   RowBox[{"Plot6", "=", 
    RowBox[{"Show", "[", 
     RowBox[{"dataPlot", ",", 
      RowBox[{"Graphics", "[", 
       RowBox[{"{", 
        RowBox[{"Black", ",", "labels"}], "}"}], "]"}], ",", 
      RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0.045"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0.45"}], "}"}]}], "}"}]}]}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"Clear", "[", 
    RowBox[{
    "dataScatter", ",", "CountriesScatter", ",", "badpos", ",", "dataPlot", 
     ",", "labels"}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "Weighted", " ", "least", " ", "squares", " ", "regression", " ", "of", 
     " ", "the", " ", "median", " ", "absolute", " ", "deviation", " ", "of", 
     " ", "profit", " ", "rates", " ", "on", " ", "the", " ", "median", " ", 
     "absolute", " ", "deviation", " ", "of", " ", "growth", " ", "in", " ", 
     "market", " ", "value"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"dataScatter", "=", 
     RowBox[{"Transpose", "@", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"MediansOfVolOfGrMV", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", 
        RowBox[{"MediansOfVolOfPR", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "}"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"badpos", "=", 
     RowBox[{"Position", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"baddata", "[", "#", "]"}], "&"}], "/@", "dataScatter"}], 
       ",", "True"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"dataScatter", "=", 
     RowBox[{"Delete", "[", 
      RowBox[{"dataScatter", ",", "badpos"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"LinearModelFit", "[", 
     RowBox[{"dataScatter", ",", "x", ",", "x", ",", 
      RowBox[{"Weights", "\[Rule]", " ", 
       RowBox[{"WeightTALong", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "2"}], "]"}], "]"}]}]}], "]"}], "[", 
    "\"\<ParameterTable\>\"", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.566560015697521*^9, 3.566560017189542*^9}, {
   3.566560350443461*^9, 3.566560393123863*^9}, {3.566560549736207*^9, 
   3.566560551565534*^9}, {3.566560583429744*^9, 3.566560637114449*^9}, {
   3.566561362883596*^9, 3.566561468999154*^9}, {3.566561505917136*^9, 
   3.566561509796357*^9}, {3.566561542475925*^9, 3.566561543056522*^9}, {
   3.5665615759000874`*^9, 3.566561688613615*^9}, {3.566561726701305*^9, 
   3.566561787927647*^9}, {3.5665627724672937`*^9, 3.5665627735611563`*^9}, {
   3.566562925998107*^9, 3.566562926689227*^9}, {3.566562958502118*^9, 
   3.566562959959387*^9}, {3.566563479562521*^9, 3.566563487391317*^9}, {
   3.5665635749820213`*^9, 3.5665636557284737`*^9}, {3.566563859302*^9, 
   3.566563866836009*^9}, {3.5665639021085787`*^9, 3.56656399711607*^9}, {
   3.566564039416154*^9, 3.566564040616919*^9}, {3.56656409039132*^9, 
   3.56656415817297*^9}, {3.5665641905382757`*^9, 3.5665641952744093`*^9}, {
   3.566564806940217*^9, 3.56656483622491*^9}, {3.566564890460672*^9, 
   3.566564893723917*^9}, {3.566565093988352*^9, 3.566565139472601*^9}, {
   3.5665786553526487`*^9, 3.566578730003438*^9}, {3.566578786638636*^9, 
   3.566578812438973*^9}, {3.5665788561668386`*^9, 3.566578924335803*^9}, {
   3.5665789597135487`*^9, 3.56657904870874*^9}, {3.5665792010518627`*^9, 
   3.566579248614112*^9}, {3.566579290707172*^9, 3.566579341649774*^9}, {
   3.566579674525545*^9, 3.5665797025178328`*^9}, {3.566579784154155*^9, 
   3.566579800245841*^9}, {3.5665799630008087`*^9, 3.566579963626553*^9}, {
   3.566580011104085*^9, 3.566580072839388*^9}, {3.5665802175912933`*^9, 
   3.566580217915175*^9}, {3.566580284280696*^9, 3.566580336199882*^9}, {
   3.566580475805867*^9, 3.5665805468978767`*^9}, {3.566580844217013*^9, 
   3.566580898988646*^9}, {3.566999210022399*^9, 3.566999225453712*^9}, {
   3.5671453814115877`*^9, 3.567145393010893*^9}, {3.5671457629808292`*^9, 
   3.567145773194643*^9}, {3.5677660505581636`*^9, 3.567766061161726*^9}, {
   3.5677662920357447`*^9, 3.567766342662678*^9}, 3.567775527437214*^9, {
   3.567775569551814*^9, 3.56777566870182*^9}, {3.567775749564419*^9, 
   3.567775794616598*^9}, {3.567775856859177*^9, 3.567775920336647*^9}, 
   3.5677760154225388`*^9, {3.567776055922317*^9, 3.567776161328816*^9}, {
   3.5677762199821987`*^9, 3.5677762464214087`*^9}, {3.5677763802566442`*^9, 
   3.56777639131362*^9}, {3.567776903519957*^9, 3.5677769604231167`*^9}, {
   3.5677770073847427`*^9, 3.567777011958213*^9}, {3.567777049525937*^9, 
   3.567777065612878*^9}, {3.5677771008745527`*^9, 3.567777162174576*^9}, {
   3.567929813880804*^9, 3.567929819564022*^9}}]
},
WindowSize->{1920, 1032},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
ShowSelection->True,
Magnification:>FEPrivate`If[
  FEPrivate`Equal[FEPrivate`$VersionNumber, 6.], 1.25, 1.25 Inherited],
FrontEndVersion->"9.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (November 20, \
2012)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 11337, 209, 435, "Input"],
Cell[11897, 231, 87338, 1819, 3795, "Input"],
Cell[99238, 2052, 14725, 270, 183, "Input"],
Cell[113966, 2324, 27357, 701, 1884, "Input"]
}
]
*)

(* End of internal cache information *)
